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ABSTRACT 


The  Depot  Maintenance  Planning  and  Programming  System 
(DMPPS)  is  a large  computer  system  developed  over  a period 
of  two  and  a half  years  by  the  David  W.  Taylor  Naval  Ship 
Research  and  Development  Center  (DTNSRDC),  Code  186  for 
the  Naval  Sea  Systems  Command  (NAVSEA) , Code  070T.  The 
System  was  developed  to  project  shipyard  resource  require- 
ments (i.e.,  labor  mandays  and  costs  as  well  as  material 
costs)  by  shipyard  production  shop  and  by  ship  work  break- 
down structure  (SWBS).  It  enables  management  to  assess 
the  impact  on  the  shipyards  and  ship  systons  of 

• Changes  in  depot-level  maintenance/alter- 
ations policy 

• Major  changes  in  force  levels  and/or  com- 
position 

• Budgetary  constraints 

DMPPS  consists  of  a network  of  interdependent  computer 
programs  written  in  FTDRTRAN  IV.  It  was  developed  at  DTOSRDC 
using  the  CDC  6000  series  computers  and  was  subsequently 
converted  for  the  IBM  360/370  series  computers.  It  is  now 
installed  and  operational  at  the  NAVSEA  070  computer  terminal 
(which  accesses  an  IBM  370/168  computer).  This  document 
presents  the  IBM  360/370  version  of  the  DMPPS  program  modules. 
The  modules  have  been  grouped  into  six  subsystems.  Each 
of  Volumes  2-7  of  this  document  describes,  in  detail,  one  of 
these  subsystems.  An  executive  summary  of  the  entire  DMPPS  is 
presented  in  Volume  1.  The  content  of  the  seven  volunes  is 
indicated  as  follows: 

Volune  1 - Executive  Summary 
Volume  2 - Preprocessor  Subsystan 
Volume  3 - Alterations  Subsystem 
Volume  4 - Repair  Subsystan 
Volume  5 - Synthesizer  Subsystem 
Volume  6 - Report  Generator  Subsystem 
Volume  7 - Feedback  Subsystem 
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2.  PREPROCESSOR  SUBSYSTEM 


The  Preprocessor  Subsystem  of  the  Depot  Maintenance  Planning  and 
Programming  System  (DMPPS)  is  responsible  for  preparing  the  initial 
version  of  the  Depot  Maintenance  Assignment  File  (DMAF).  DMAF  is  one  of 
the  key  files  of  the  DMPPS.  It  contains  a list  of  all  shipwork  antici- 
pated for  each  of  the  Naval  and  privately-owned  shipyards,  broken  down  by 
six-month  periods.  The  file  covers  the  five-year  period  to  be  reported  on 
(as  selected  by  the  user).  It  is,  essentially,  an  extract  of  the  Long 
Range  Planning  System  (LRPS)  Assignment  Files  prepared  by  the  Naval  Sea 
Systons  Command,  Code  071.  DMAF  differs  frc«n  the  LRPS  Assignment  Files  in 
the  following  ways: 

• Only  "depot  maintenance"*  shipwork  is  extracted  from 
the  LRPS  Assignment  Files. 

• The  format  of  each  of  the  records  of  DMAF  differs 
from  those  of  the  LRPS  Assignment  Files. 

• Some  of  the  information  on  the  LRPS  records  is  not 
carried  over  onto  DMAF  (i.e.,  homeport,  specialization 
cateaory,  type  select,  and  docking  parameters). 

• Each  DMAF  record  contains  space  for  the  repair  and 
alterations  matrix  numbers  which  are  reauired  by 
DMPPS  (but  not  by  the  Long  Range  Planning  System,). 

• Some  of  the  information  is  specified  differently 
on  DMAF.  For  example,  the  shipyard  is  specified 
by  a number  on  the  LRPS  Assignment  File,  but  is  con- 
verted to  a five-letter  designation  for  DMAF. 


*"Depot  maintenance"  shipwork  is  all  depot-level  repair/alterations 
work  to  be  reported  to  OSD(I&L)  under  DOD  Instruction  4151.15.  It  in- 
cludes all  shipwork  other  than  new  construction,  fitting  out  and  post 


The  Preprocessor  Subsystem  consists  of  three  programs  (PPELIM, 
EPPCHK,  and  UPDEP)  and  a sort  routine.  The  major  functions  of  these 
components  are  described  as  follows: 

Program  PPELIM 

PPELIM  creates  the  initial  version  of  DMAE  (DMAE-0).  It  examines 
each  of  the  records  of  the  LRPS  Assignment  Piles,  discards  all  records  not 
within  the  selected  five-year  period,  and  determines  whether  or  not  each 
record  describes  depot  maintenance  work.  All  depot  maintenance  work  is 
placed  on  DMAP-0  in  the  required  format.  Non-depot  maintenance  work  is 
saved  on  another  file  ("NON-DEPOT"),  using  the  format  for  DMAE  records. 

Sort 

A sort  must  be  made  on  the  version  of  DMAE  created  by  PPELIM. 
It  sorts  DMAE  first  by  ship,  then  by  availability  start  date,  then  by 
seauence  number,  and  finally  by  semi-annual  period.  The  sort  routine  must 
also  be  run  whenever  EPPCHK  is  run.  It  is  described  in  detail  in  Section 
2.2  (program  EPPCHK)  and  is  incorporated  into  the  run  set-up  for  EPPCHK. 

Program  EPPCHK 

EPPCHK  examines  each  record  of  the  sorted  DMAE  for  errors  in  seauence 
number  and/or  percent  alterations  and  prints  a list  of  the  errors  encoun- 
tered. It  also  creates  a new  DMAE  (DMAF-1),  which  differs  from  the 
sorted  version  of  DMAF-0  in  that  the  records  are  numbered  and  the  "contin- 
uation indicator"  field  has  been  checked  and  corrected,  if  necessary. 

Program  UPDEP 

UPDEP  is  used  within  the  DMPPS  to  revise,  insert,  or  delete  DMAE 
records.  Although  it  may  be  used  to  update  any  of  the  versions  of  DMAE, 
it  is  usually  used  only  to  update  DMAF-1  on  the  basis  of  "errors"  dis- 
covered by  the  EPPCHK  program  (Section  2.2)  or  the  MATCH  program  (Section 
3.1). 

Figure  2.0-1  illustrates  the  interrelationships  of  the  various 
programs  and  files  of  the  Preprocessor  Subsystem. 
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2.1  PROGRAM  PRELIM 


2.1.1  DESa^IPTI(»J 

PRELIM  reads  the  LRPS  Assiqnment  Files,  extracts  pertinent  informa- 
tion from  them,  and  creates  a new  file,  the  Depot  Maintenance  Assiqnment 
File  (DMAF),  which  contains  a list  of  all  shipwork  scheduled  for  a five- 
year  period  (the  forecastinq  period).  DMAF  contains  only  that  shipwork 
which  is  to  be  reported  on  under  the  automat6?d  Depot  Maintenance  Planninq 
and  Proqramminq  System  (DMPPS)  established  by  the  Office  of  the  Secretary 
of  Defense  (Installation  and  Loqistics)  throuqh  DOD  Instruction  4151.15. 
Any  other  shipwork,  termed  herein  "non-depot  maintenance"  shipwork,  is 
placed  on  another  file,  "Non-Depot". 

There  are  four  LRPS  Assiqnment  Files,  one  for  each  of  the  four 
sectors — Navy  East  (NE),  Navy  West  (NW) , Private  East  (PE),  and  Private 
West  (PW).  The  sectors  denote  the  ownership  and  coastal  location  of  the 
shipyard  where  the  shipwork  is  to  be  performed.  The  first  four  records  on 
each  file  are  header  records  which  contain  qeneral  information  such  as 
file  identification  and  shipyard  number/name  cross-reference.  PRELIM 
qenerates  a file,  "DMAF  Run  Identification",  which  contains  DMPPS  run 
identification  information  (input  by  the  user  on  a card)  and  the  LRPS 
Assiqnment  File  identifications  extracted  from  each  of  the  four  sector 
files  of  the  LRPS.  This  information  enables  the  user  to  determine,  at 
any  time,  the  version  of  LRPS  that  was  used  to  create  the  current  DMAF. 

In  addition  to  the  four  header  records,  each  LRPS  sector  file  con- 
tains a list  of  all  shipwork  scheduled  for  the  next  10  years  for  the 
shipyards  within  the  sector.  The  shipwork  is  descrited  in  terms  of  the 
mandays  required  for  the  various  scheduled  availabilities.  Availabilities 
are  identified  by  ship,  availability  start  and  end  dates,  sequence  number, 
and  type  of  work.  The  total  manday  requirements  for  an  availability  are 
broken  down  into  the  amounts  required  durinq  each  of  the  six-month  periods 
(of  a fiscal  year)  within  which  the  availability  falls.  The  LRPS  Assiqnment 
Files  contain  one  record  for  each  six-month  period  of  each  availability. 


Each  record  on  DMAF  corresponds  to  one  of  the  LRPS  records.  However, 
any  records  which  describe  a portion  of  an  availability  not  within  the 
(input)  five-year  forecasting  period  are  discarded.  Also  discarded  are 
any  records  with  a ship  type  field  of  "UDOC",  "FL",  or  "DDSN".  In  addi- 
tion, the  sector  designation  on  records  describing  shipwork  scheduled  for 
Newport  News  ("SNEWS"),  Groton  ("SGROT"),  or  Pascagoula  ("SPASC")  is 
changed  by  PRELIM  from  "PE",  to  "NE". 

Pertinent  information  from  all  other  LRPS  records  is  placed  on  either 
DMAF  or  the  Non-Depot  File,  as  appropriate.  Some  of  the  LRPS  parameters 
must  be  converted  to  a different  form  for  DMAF.  This  entails  the  follow- 
inq  processing: 

• The  yard  number  specified  on  LRPS  records  is  converted  to 
the  appropriate  four  or  five-letter  yard  desiqnation  used 
on  DMAF.  Table  2.1-1  lists  the  Navy  shipyards  and  their 
designations. 

TABLE  2.1-1  - NAVAL  SHIPYARD  DESIGNATIONS 

East  Coast  Shipyards 

CHASN  - Charleston  Naval  Shipyard 
NORVA  - Norfolk  Naval  Shipyard 
PHILA  - Philadelphia  Naval  Shipyard 
PTSMH  - Portsmouth  Naval  Shipyard 

West  Coast  Shipyards 

LBECH  - Long  Beach  Naval  Shipyard 
MARE  - Mare  Island  Naval  Shipyard 
PEARL  - Pearl  Harbor  Naval  Shipyard 
PUGET  - Puget  Sound  Naval  Shipyard 
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• Ihe  start  and  end  availability  dates  are  specified  on 
LRPS  as  relative  dates  (i.e.,  nunber  of  days  since  1 
October  of  the  LRPS  base  year* ) . They  must  be  converted 
to  their  Gregorian  date  equivalent. 

• The  six-month  period  number  specified  on  the  LRPS  record 
must  be  converted  to  fiscal  year  and  period  within  the 
fiscal  year  for  the  portion  of  an  availability  described 
by  the  record.  The  LRPS  period  numbers  range  from  1 to 
20,  with  period  1 representing  the  six-month  period 
starting  with  1 October  of  the  LRPS  base  year.  DMAF, 
however,  employs  a different  scheme  for  designating  the 
six-month  period  covered  by  the  record.  The  fiscal  year 
and  six-month  period  {first  or  second)  within  the  fiscal 
year  are  stored  on  DMAF. 

• The  continuation  indicator  designation  must  be  modified 
for  DMAF.  LRPS  uses  the  characters  "(C)"  to  indicate 
that  the  record  is  not  the  first  on  the  file  for  a 
particular  availability.  DMAF,  however,  uses  an  asterisk 
("*")  for  the  same  purpose.  Both  files  denote  the 
availability's  first  record  by  blank(s). 

The  final  function  of  PRELIM  is  to  divide  all  Navy  UNOS  work  (Unsched- 
uled/Other Shipwork)  into  its  UNSW  (Unscheduled  Shipwork)  and  UNOW  (Other 
Shipwork)  components.  PRELIM  performs  this  task  by  reading,  for  each 
Naval  shipyard,  the  fractions  to  be  used  to  split  the  UNOS  work  and  the 
number  of  the  matrix  to  be  assigned  to  the  UNSW  and  UNCW  portions.  When 
an  LRPS  record  with  a ship  typ»e  field  containing  "UNOS"  is  encountered  for 


*The  LRPS  base  year  is  found  on  the  fourth  record  of  the  LRPS  Assign- 
ment File.  It  represents  the  first  year  for  which  a schedule  of  avail- 
abilities exists  on  the  file. 
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one  of  the  Navy  yards,  PRELIM  uses  the  appropriate  fractions  to  determine 
the  LINOW  mandays  and  the  UNSW  mandays.  It  then  generates  two  records  on 
DMAF — one  with  a ship  type  field  of  "UNOW"  and  one  with  "UNSW".  Ihe 
computed  mandays  for  the  category  are  placed  on  the  record,  the  applicable 
matrix  number  is  assigned  as  the  repair  matrix  number,  and  the  percent 
alterations  field  is  set  to  zero. 

PRELIM  consists  only  of  a main  program  (no  subroutines  or  functions). 
It  performs  all  of  the  tasks  so  far  described.  No  printed  messages  are 
generated. 
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2.1.2  RUN  SET-UP 


The  following  set-up  is  used  to  run  the  PRELIM  program  on  the  IBM 
360/370  computer: 


//NVSPPFL?  JOB  OIXXXXXXXXK.XXXXX}  ,USER,CL»SS=C,TIHE=(  ,15)  ,>1SGLEVEL  = 1 
//JOBLIB  00  OSN=HVS01 .DEPOT. LIB, 0ISP*SH9 


//  EXEC  PG*i  = PRELIH? 
//GO.FT05EI)I)1  DO  • 


PRELIM  card  inputs  (unit  5) 


lEXECUTE  PROGRftM  PRELIMZ) 


//&O.FT06F001  00  STSOJTs*  (NOT 
//GO.FTOlFOOl  00  OSNsROPC. * 01  0051.. 00967. NEOUT,OISP*SHR  (INPUT 
//GO.FTOPrOOl  00  DSN= WDPC. * 01 0 0 55. *9967. NMOUT , 0ISP  = SMR  (INPUT 
//GO.ETOTFOOl  DO  0SN  = WOPC . * 01 0 0 54. *9967 . PEOUT , 0ISP*SHR  (INPUT 
7/r,O.FT04F001  00  OSNiHOPC. *010054. *9967. PMOUT,DISP*SMR  (INPUT 
/7GO.FT07F001  00  OSN= NVS 0 1 . OPaF 0. 0* T* ,01 SP= SHR  (OUTPUT 
//GO.FT08F001  00  OSN=NVS 0 1 . DN»F . RUNI D.0»T », OISP*SMR  (OUTPUT 
//r,n.FT09F001  DO  DSN  = NWS01.NON0EPOT.O*T»,DISP*SMR  (OUTPUT 
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2.1.3  INPUTS 


Card  inputs  are  made  using  unit  5.  The  format  for  these  cards  is 
presented  in  Section  2. 1.3.1. 

Unit  5 - Card  inputs  which  specify  (1)  the  first  fiscal 
year  to  be  included  on  the  DMAF,  and  (2)  UNOW/ 

UNSW  processing  information. 

The  following  additional  units  are  used  to  input  information  from 
disk  files  created  by  the  Long  Range  Planning  System  (LRPS); 

Unit  1 - LRPS  Assignment  File,  NE 
Unit  2 - LRPS  Assignment  File,  NW 
Unit  3 - LRPS  Assignment  File,  PE 
Unit  4 - LRPS  Assignment  File,  PW 

The  format  for  these  files  is  described  in  Section  2. 1.3. 2. 
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2. 1.3.1  Unit  5 - Card  Inputs 


Forecast  Period  Card.  This  card  mist  appear  as  the  first  input  card. 


Its  format  is: 

Variable  Name 

Description 

Field 

Format 

IFYST 

First  fiscal  year  of  depot 
maintenance  forecast 

1-2 

12 

RUNID(IO) 

EMPPS  run  identification 

4-43 

10A4 

UNOS  Processing  Control  Cards.  There  must  be  exactly  eight  cards  of  this 

type,  one  for  each  of 

cessing  control  cards 

the  Naval  shipyards.  The  format  for 

is: 

the  UNOS  pro- 

Variable  Name 

Description 

Field 

Format 

YARD(I) 

Shipyard 

1-5 

A5 

MUNSW( I ) 

Matrix  number*  to  be 
assigned  to  UNSW  work  in 
this  shipyard 

10-13 

14 

FUNSW(I) 

Fraction  of  UNOS  work  vrfiich 
is  UNSW** 

19-24 

F6.4 

MUNCW(I) 

Matrix  number*  to  be 
assigned  to  UNCW  wjrk  in 
this  shipyard 

28-31 

14 

FUNCW(I) 

Fraction  of  UNOS  work 
which  is  UNCW** 

38-43 

F6.4 

*The  matrix  numbers  must  be  between  2800  and  3000  (inclusive). 

**The  fractions  FUNSW  and  FUNOW  for  each  yard  must  sum  to  1.0. 
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2. 1.3. 2 Units  1-4  - Long  Range  Planning  System  (LPPS)  Assignment  Files 


The  LPPS  Assignment  Files  contain  schedules  of  availabilities  of  ship- 
yard resources,  type  of  work  to  be  performed,  and  start  and  end  dates  of 
each  availability  for  all  Naval  vessels  for  the  "current"  and  nine  succeed- 
ing years.  Ibe  shipyards  in  the  LPPS  Assignment  Files  are  subdivided  into 
sectors  which  are  represented  by  shipyard  ownership  and  coastal  locations 
(i.e..  Navy  East,  Navy  West,  Private  East  and  Private  West).  Hie  LPPS 
Assignment  Files  are  created  by  the  Long  Range  Planning  System  which  was 
developed  to  provide  assistance  in  long  range  scheduling  and  workload 
projections  for  Naval  shifwork  in  domestic  yards. 

Hie  LPPS  Assignment  Files  must  be  input  to  the  PRELIM  program  using 
the  following  units: 

Unit  Sector 

1.  Navy  East  Assignment  File 

2.  Navy  West  Assignment  File 

3.  Private  East  Assignment  File 

4.  Private  West  Assignment  File 

The  formats  for  each  of  these  files  are  identical  and  are  described 
as  follows: 


Header  Record  1.  This  record  is  the  first  record  on  each  of  the  LPPS 
Assignment  Files.  Its  format  is: 


Variable  Name 

Description 

Field 

YDNMF(IO) 

Names  of  the  shipyards  on 
the  file 

21-80 

Format 

10(A5,1X) 


Header  Records  2 and  3.  These  two  records  are  not  used  by  the  PRELIM 
program. 
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Header  Record  4.  Hie  format  for  this  record  is: 


Variable  Name 

Description 

Field 

Format 

LRPSID(6) 

LRPS  Assignment  File 
identification 

5-28 

6A4 

IFSTYR 

First  calendar  year  of  the 
file 

29-30 

12 

Ship  Records. 

There 

is  one  record  of  the  following 

format  for 

each  semi' 

annual  period 

of  a 

fiscal  year  within  which  each 

availability  falls 

Variable  Name 

Descr ipt ion 

Field 

Format 

lYDNO 

Yard  number 

1-2 

12 

IPDNO 

Period  number 

3-4 

12 

DKID 

Dock  availability 
assignment 

5-7 

A3 

CONT 

Continuation  indicator 

8-10 

A3 

rSHIP 

Ship  type 

11-14 

A4 

HUI.L 

Hull  number 

16-19 

A4 

HMPT 

Home  port 

20-24 

A5 

IDKDY 

Doc kd ays 

25-27 

13 

IMNDY 

Mandays 

28-34 

17 

ISTRT 

Relative  start  date 

35-38 

14 

lENT) 

Relative  end  date 

39-42 

14 

IDKCLS 

Dock  class 

43-44 

12 

IDKPD 

Period  ship  docks 

45-46 

12 

lUDKPD 

Period  ship  undocks 

47-48 

12 

SPEC 

Specialization 

49-52 

A4 

ICRV 

Labor  distribution 
histogram  number 

53-54 

12 

ITOTDY 

Total  dock  days 

55-58 

14 

ITOTMN 

Total  mandays 

59-65 

17 

AVAIL 

Type  of  work 

66-68 

A3 

IPRIO 

Priority 

69-70 

12 

15 


Ship  Records  (Continued) 


Variable  Name 

Description 

Field 

Format 

ISPES 

Docking  start  restraint 

71-73 

13 

lERES 

Docking  end  restraint 

74-76 

13 

Ib.Q 

Sequence  number 

77-80 

14 

ILAP 

Days  overlap 

81-85 

15 

IPCTA 

Percent  alterations 

87-89 

13 

Trailer  Records. 

Assignment  Files. 

This  record  is  the  last  record 

Its  format  is: 

on  each  of 

the  LRI 

Variable  Name 

Description 

Contains  "9999" 

Field 

1-4 

Format 

14 

16 


2.1.4  OUTPUTS 


PREIilM  uses  the  following  units  to  store  information  on  disk  for 
use  by  subseouent  programs: 

Unit  7 - Deoot  Maintenance  Assignment  File,  Version  0 
(DMAF-0) 

Unit  8 - DMAF  Identification  File 

Unit  9 - Non-Depot  Maintenance  Assignment  File 

The  formats  for  these  files  are  given  in  Sections  2. 1.4.1  throuah  2. 1.4. 3. 
No  hardcopy  output  is  generated. 
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2. 1.4.1  Unit  7 - Depot  Maintenance  Assignment  File,  Version  0 (DMAF-0) 


DMAF-0  contains  information  describing  all  depot  maintenance  ship 
availabilities  scheduled  for  yard-work  at  both  Navy  and  privately-owned 
shipyards  during  the  selected  five-fiscal-year  period.  Depot  maintenance 
availabilities  are  those  availabilities  with  a type  of  work  other  than 
Fitting  Out  (PO),  Post  Shakedown  (PS),  or  New  Construction  (NC). 


Each  record  of 

DMAF-0  corresponds  to  a record 

on  one 

of  the  LPPS 

Assignment  Files.  Thus,  there  is  a record  on  DMAF 

for  each 

semi-annual 

period  that  an  availability  falls  within,  providing 

that  (a) 

the  avail- 

ability  is  a "depot  maintenance"  availability,  and  (b)  the 

period  is  within  the  5-year  forecasting  period. 

The  format  for  each  record  of  DMAF-0  is  as  follows: 

semi-annual 

Variable  Name 

Description 

Field 

Format 

Y 

Shipyard 

1-5 

A5 

ISHIP 

Ship  type 

6-9 

A4 

IHULL 

Hull  number 

10-13 

14 

ISBO 

Sequence  number 

14-17 

14 

CONT 

Continuation  indicator 

18 

11 

AVAIL 

Type  work 

19-21 

A3 

ISTMO 

Start  month 

22-23 

12 

ISTDY 

Start  day 

24-25 

12 

ISTYR 

Start  year 

26-27 

12 

lEDMO 

End  month 

28-29 

12 

I EDDY 

End  day 

30-31 

12 

lEDYR 

End  year 

32-33 

12 

SPEC 

Specialization  category 

34-36 

A3 

SEC 

Sector 

37-38 

A2 

NCWYR 

Fiscal  year  (this  record) 

39-40 

12 

IPEP 

Period  (this  record) 

41 

11 

IMNDY 

Production  shop  productive 
(PSP)  mandays  (this  period) 

42-48 

17 

ITCrmN 

Total  PSP  mandays 

49-55 

17 

18 


Variable  Name 

Description 

Field 

Format 

MAITJOP 

Repair  matrix  nutiber 

56-59 

14 

MAmiA 

Alterations  matrix  number 

60-63 

14 

IPCTA 

Percent  alterations 

64-66 

13 

ICPV 

Labor  distribution 

67-68 

12 

histoqram  number 


19 


2. 1.4. 2 Unit  8 - DMAF  Identification  File 


The  DMAF  Identification  File  contains  information  identifying  the 
current  DMPPS  run,  and  LRPS  Assignment  File  identification. 

DMAF  Identification  Record.  This  record  is  the  first  record  on  the  file. 


Its  format  is: 

Variable  Name 

Description 

Field 

Format 

IFYST 

First  fiscal  year  of  DMPPS 
forecasting  period 

1-2 

12 

RU^aD(10) 

DMPPS  run  identification 

4-43 

10A4 

LRPS  Identification 

Records.  Four  records  of  the 

following 

format  form 

records  2-5  of  the  file.  Fach  is  an  extract  of  the  fourth  record  of  one 
of  the  LRPS  Assianment  Files. 
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2. 1.4. 3 Unit  9 - Non-Depot  Maintenance  File 


This  file  contains  infonration  on  shio-availabilities  not  considered 
to  be  "depot  maintenance"  availabilities.  Availabilities  with  the  follow- 
ina  tyoes  of  work  fall  within  this  category: 

PO  - Fitting  Out 

PS  or  PSA  - Post  Shakedown 

MC  or  PNC  - New  Construction 

The  format  for  each  record  on  the  file  is  the  same  as  that  given  in 
Section  2. 1.4.1  (DMAF-0). 


21 


2.1.5  PROGRAM  LISTHJG 


BEST  AV4IUB1T  COPY 


►***PROGRAH  PRELIM2(INPUT,OUTPUT,TAPE5=INPUT ,TAPE6=OUTPUT ,TAPE1 t 
»•*.  TAPE2,TAPE3,TAPE4,TAPE7, TAPES tTAPE9l 

THIS  PROGRAM  EXTRACTS  A PRELIMINARY  OMAF  FROM  THE  LRPS  ASSIGNMENT 
FILE. 

PROGRAMMED  9Y  JAY  MANOELBAUM  AUGUST  1975 

PART  OF  THE  COOING  NAS  TAKEN  FROM  A PROGRAM  9Y  DAN  ALLEN  ^ 

RERISEO  BY  LINDA  L.  LAMATRICE,  DTNSROC,  CODE  186  (OEC  19761 


The  FOLLOMING  units  are  used  by  PRELIM! 


PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 


c 

UNIT 

1 

• 

INPUT 

- 

LRPS  ASSIGNMENT  FILE,  NE 

PREL 

140 

c 

UNIT 

2 

- 

INPUT 

- 

LRPS  ASSIGNMENT  FILE,  NN 

PREL 

150 

c 

UNIT 

3 

- 

INPUT 

- 

LRPS  ASSIGNMENT  FILE,  PE 

PREL 

160 

c 

UNIT 

4 

- 

INPUT 

- 

LRPS  ASSIGNMENT  FILE,  PN 

PREL 

170 

c 

UNIT 

5 

- 

INPUT 

- 

CARO  INPUTS 

PREL 

180 

c 

UNIT 

6 

- 

OUTPUT 

- 

NOT  USED  By  prelim 

PREL 

190 

c 

UNIT 

7 

- 

OUTPUT 

- 

OMAF,  VERSION  0 (UNSORTEDI 

PREL 

200 

c 

UNIT 

8 

- 

OUTPUT 

- 

OMAF  IDENTIFICATION  RECORDS  FILE 

PREL 

210 

c 

UNIT 

9 

- 

OUTPUT 

NON-DEPOT  MAINTENANCE  FILE 

PREL 

220 

c 

PREL 

23  0 

..  . 

... 

. .. 

PREL 

240 

REAL *8  YAFO.OBLANK. Y,HMPT,S6R0T,SNEHS,SPASC, YONME 
REAL  MAP.NC 

DIMENSION  YARD! 8) ,RUNID( 10»  ,LPPSID«6) ,S EC  TOR ( 4 ! , MUNSN  18 » .MUNOMIBI 
. FUNSN (81  I FUNOHT 81 f YONME (10» 

DATA  SECT0R/2HNE,2HNH,2HPE, 2HPN/,  SGROT /5HSGR0 T / , SNE MSF5HSNEHS/t 
. SPASC/5HSPASC/ 

DATA  UN0S/4HUN0S/ , UN5H/4H0NSH/,  UNON74HUNON / , UOOC ✓4HU00K/ . 

. FL/2HFL7.  DDSN/4HaD3N7 

DATA  MAP/3HMAP/,  F0/2HF0/,  PS/2HPSr,  PSA73HPSA/,  RNC/3HRNC/. 

. NC/2HNC/t  0S/2H0S/,  SH/2HSM/,  OH/2HOH/ 

DATA  ASTR/4H»»»»/,  BLANK/IH  / 


READ  FIRST  FISCAL  YEAR  OF  DEPOT  MAINTENANCE  FORECAST 
RFAO  (S.lCOt  IFYST.RUNID 
100  FORMAT  (I2,1X,10A4> 

NRITE  (8,100)  IFYST.RUNID 


READ  FOR  EACH  NAVY  YARD  - UNSM  AND  UNOW  MATRIX  NUMBERS 

- FRACTION  OF  UNOS  FDR  UNSM  AND  UNOM 

DO  110  II  = 1,8 

no  READ  (5,1211  YARO( III ,MUNSW( III ,FUNSH( II » ,MUNON( II ) ,FUNOM(Il» 
120  RORMAT  (A5,4X,I4,6X ,F6.4,4X,I4,6X,F6.4) 

IFYENO  = IFYST  ♦ 4 
DO  400  J=  1 ,4 


PREL 

• »«  » 

PREL 

PREL 

PREL 

,PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 

PREL 


250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
36  0 
370 
380 
390 
400 
410 
420 
430 
440 
45  0 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
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L 


BBT7VAIUB1E  COPY 


C READ  LIST  OF  YARDS  ON  LRPS  FILE.  

READ  IJ.130I  YONME 
150  FORMAT(T21,10(A5,1XI//I 
C 

C READ  FIRST  CALENDAR  YEAR  AND  IDENT.  OF  LRPS  ASSIGNMENT  FILE. 


READ  (J.150I  LRPSIO.IFSTYR 
ISO  FORMAT  <4X,6A4,I2> 

HRITE  (8,160)  LRPSIO 
160  FORMAT  (6841 
C 

C READ  LRPS  ASSIGNMENT  FILE  RECORD 

1 ro  REAO( J,20C)  lYONO, IPONO , DK 1 0, CONI , SH IP , IHUL L , HMPT , lOKDT , IMNDY , 
A ISTRT, lENO.IOKCLS.IDKPO ,IUDKPD,SPEC, ICRV .ITOTDY, 

0 itotmn,awail,iprio,isres,ieres,iseq,ilap,ipcta 

200  F0RMAT(2I2.2A5,A4,1X,I4,AS,I5,I7,2I4,3I2,A4,I2,I4,I2,A3,I2,2I3, 
A I4,I5,1X,I3< 

C 

c test  for  end  of  LRPS  ASSIGNMENT  FILE 

IFdYDNO  .EQ.  99  .AND.  IPONO  .EQ.  99)  60  TO  4C0 
C 

C TEST  FOR  INVALID  SHIP  TYPES 

IF  (SHIP.EO. UOOC  .OR.  SHIP.EQ.FL  .OR.  SH I P . EQ . OOSN)  GO  TO  170 
C 

C CALCUIATE  FISCAL  YEAR 

NONYR  = IFSTYR  ♦ (IPONO  - MOOdPDNO  - 1,2)  )/2  ♦ 1 
C 

C TEST  IF  SHIP  )(ITHIN  FISCAL  YEAR  LIMITS 

IF  ( NONYR. LT . IFYST  .OR.  NONYR . GT . IF YENO ) GO  TO  170 
C 

C IF  type  of  NORK  is  NAP,  SET  PERCENT  ALT  TO  ZERO.  

IF  ( AVAIL. NE. MAP)  GO  TO  210 

IPCTA=0 

MATNOAilSOO 

C 

C TEST  FOR  AVAILA3ILITY  OVERLAP 

210  IFdLAP  .LT.  0)  GO  TO  220 
lENO  = lENO  ♦ ILAP 
GO  TO  230 
C 

c CORRECT  START  AND  END  OATES  FOR  OVERLAPPING  NORK  

220  ISTRT  = ISTRT  ♦ ILAP 
C 

c CALCULATE  START  AND  END  OATES 

230  TEND  = lENO  ♦ 180 
ISTRT  = ISTRT  ♦ 180 
lEOYR  = lENO  / 360  ♦ IFSTYR 
TFdSTRT  .GE.  0)  GO  TO  250 
ISTTR  = IFSTYR 
240  ISTRT  = ISTRT  ♦ 360 
ISTYR  = ISTYR  - 1 
IFIISTRT  .LT.  0)  GO  TO  240 
GO  TO  260 

250  ISTYR  = ISTRT  / 360  ♦ IFSTYR 
260  lEOMO  = MODI lENO, 360)  / 30  « 1 
ISTMO  = MOOdSTRT,3601  7 30  ♦ 1 
lEOOY  = MOOdENO, 30)  ♦ 1 
ISTOY  * MOOITSTRT,30)  ♦ 1 
IPER  = MOOTIPONO  - 1,2)  ♦ 1 
C 

C INSERT  PROVISION  FOR  NEN  FISCAL  YEARS 


PREL  560 
PREL  570 
PREL  580 
PREL  590 
PREL  600 
PREL  610 
PREL  620 
PREL  630 
PREL  640 
PREL  650 
PREL  660 
PREL  670 
PREL  680 
PREL  690 
PREL  700 
PREL  710 
PREL  720 
PREL  730 
PREL  740 
PREL  750 
PREL  760 
PREL  770 
PREL  780 
PREL  790 
PREL  800 
PREL  810 
PREL  820 
PREL  830 
PREL  840 
PREL  850 
PREL  860 
PREL  870 
PREL  880 
PREL  890 
PREL  900 
PREL  910 
PREL  920 
PREL  930 
PREL  940 
PREL  950 
PREL  960 
PREL  970 
PREL  980 
PREL  990 
PRELIOOO 
PRELlOlO 
PREL1020 
PREL1030 
PREL1040 
PREL1050 
PREL1060 
PREL1070 
PREL1C80 
PREL1090 
PRELllOO 
PRELlllO 
PREL1120 
PREL1130 
PREL1140 
PREL1150 
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OOOO  OO  ^'^00  oc*>  oooo  oo 


BESI'AVAIIABIE  COfY 

ISTMO  = ISTnO  ♦ 3 PREL1160 

lEOHO  = ItOHO  ♦ 3 PRELlirO 

IF  IISTM0.LE.12I  GO  TO  270  PREL1180 

ISTHO  s ISTHO  - 12  PREL1190 

ISTTR  = ISTTR  ♦ 1 PREL1200 

270  IF  (IE0M0.LE.12I  GO  TO  280  PREL1210 

lEOMO  = leONO  - 12  PREL1220 

lEDYR  = IFOYR  ♦ 1 PREL1230 

C PREL1240 

C SET  UP  CONTINUATION  FIELD PREL1250 

280  IFTCONT  .NE.  BLANKI  CONT  = ASTR  PREL1260 

SEC  = SECTORIJI  PREL1270 

Y = YONMECirONOI  PREL1280 

IF  »Y.EQ.SNENS  .OR.  Y.EQ.SGROT  .OR.  Y.EQ.SP4SC)  SEC  = SECTOR(3l  PREL1290 

PREL1300 

WRITE  NON  DEPOT  HAINTENANCE  AVAILABILITIES  ON  UNIT  9 PREL1310 

lUNIT  s 7 PREL1320 

IF  (AVAIL. EQ.FO. OR. AVAIL. EQ. PS. OP. AVAIL. EQ. PSA. OR.  PREL1330 

A AVAIL. EQ.RNC. OR. AVAIL. EQ. NCI  lUNIT  r 9 PREL13A0 

PRE11390 

----SPLIT  UNOS  INTO  UNON  AND  UNSN  CONPONENTS  - GO  TO  156 PREL1360 

IF  <SMIP.EO.UNOSl  GO  TO  320  PREL1370 

PREL1380 

WRITE  OHAF  RECORD PREL1390 

300  WRITE  (IUNIT,310)  Y . SH IP. IHULL. I S EQ. CONT , AV AI L. I STHO • PRELINOO 

A ISTOY. ISTYR.IEOHO.IEOOY.IEOYR. SPEC. SEC  .NOWYR,  PREIIAIO 

. IPER.IHNOY. ITOTMN.IPCTA.ICRV  PREL1420 

310  FORMAT  IA5.AI..2I<..A1  .A3.6I2.A3.A2.I2.T1.2I7.8X.I3.I2)  PRELli.30 

GO  TO  170  PREL1440 

PRELIASO 

ir  PRIVATE  SECTOR  - OO  NOT  SPLIT  UNOS PREL1460 

320  AVAIL=OS  PREL1470 

IPCTA  = 0 PREL1480 

MATNOA=15C0  PRELl<i90 

IF  (SEC.E0.SFCI0R(JI.0R.SEC.EQ.SECT0R(4)»  GO  TO  300  PREL1500 

PREL1510 

SFT  ALT  MATRIX  NUMBER.  PERCENT  ALT  TO  ZERO  PREL1520 

ALSO  STORE  VALUE  OF  MANOAYS — - PREL1530 

ITEHPl  = IMNOY  PREL1546 

ITEMP2  = ITOTMN  PREtl550 

PREL1S60 

DETERMINE  YARD  FOR  THIS  UNOS — - — PREL1570 

OO  350  II  = 1.8  PREL1580 

IF  (Y.EQ.  TARO  (ID  I GO  TO  360  PREL1590 

350  CONTINUE  PREL1600 

PREL1610 

IF  not  an  input  yard  - OO  NOT  SPLIT  THE  UNOS- — — — - PREL1620 

GO  TO  300  PREL1630 

PREL1640 

WRITE  UNSW  OMAF  RECORD — PRELIESO 

360  IMNOY  : ITENP1*FUNSW(ID  PREL1660 

ITOTMN  = ITENP2»FUNSW(I1I  PREL1670 

SHIP  = UNSW  PREL1680 

MATNOR  = MUNSWdll  PRE11690 

AVAIl=SW  PREL1700 

WRITE  (IUNIT.370I  Y . SHIP. IHULL. IS EQ. CONT , A VAl L» ISTMO.  PREL1710 

A ISTOY. ISTYR.IEOMO.IEOOY.IEOVR. SPEC. SEC  .NOWYR,  PREL1720 

. IPER. IMNOY. ITOTMN. MATNOR. MATNOA. IPCTA, ICRV  PREL1730 

370  FORMA T (AS, AW, 21 4, Al , A3, 612, A3, A2, 12. I 1,21 7. 2 14, 13, 12)  PREL1740 

C PREL175n 


BEST  AVAIUBIE  COPY 


--HWTE  UNOK  OM/IF  

IMNOY  = ITE«Pl»FUNO«(Ill 
ITOTHN  = ITEMP2»FUNONai» 

SHIP=UNOM 

HATNOR  = HUNOHdll 

AVAIL=OM 

WRITE  «IUNIT,3rO)  Y ,SHIP,IHULLiISEQtCONT,AVAILtlSTMO, 

A ISTDY, ISTYH,IE0M0,IE00Y,IE0YR, SPEC, SEC  ,NOMYR, 

. iper,ifnoy,itothn,hatnor,hatnoa, ipcta, icrv 
GO  TO  170 
0 CONTINUE 
STOP 
END 


PREL1760 

PREL1770 

PREL1780 

PRELlT'JO 

PRELISOO 

PREL1610 

PREL1820 

PREL1830 

PREL18A0 

PREL1850 

PREL1860 

PREL1870 

PREL1880 
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2.1.6  GLOSSAFY 


Main  Program 

ASTR 

AVAIL 

BLANK 

CONT 

DDSN 

DKID 

FL 

PO 

FUNCW(8) 

F1INSW(8) 

HMPT 

ICPV 

IDKCLS 

inKDY 

ICKPD 

I EDDY 

lEDMO 

lEDYP 

TEND 

lEPES 

IFSTYP 


LOCAL  VARIABLES 


Contains  the  characters  "****•'. 

Type  of  work  for  the  current  availability. 

Contains  one  blank  space. 

Continuation  indicator. 

Contains  the  characters  "DDSN". 

Dock  identification  for  the  current  availability. 
Contains  the  characters  "Fl,". 

Contains  the  characters  "FXD". 

Fraction  of  UNOS  for  UNCW.  Subscript  refers  to  the 
shipyard  (see  YARD  array). 

Fraction  of  UNOS  for  UNSW.  Subscript  refers  to  the 
shipyard  (see  YARD  array). 

Homeport  for  the  current  ship. 

Labor  distribution  histogram  nunber  for  the  current 
availability. 

Dock  class  for  the  current  availability. 

Dock  days  (current  LRPS  Assignment  File  record). 

Dock  period  (current  LRPS  Assignment  File  record). 

End  date  of  the  current  availability  (day). 

End  date  of  the  current  availability  (month). 

End  date  of  the  current  availability  (year). 

End  "date"  of  the  current  availability  relative 
to  1 Oct  IFSTYR. 

End  restraint  on  dock  time  for  the  current  avail- 
ability. 

First  calendar  year  for  .which  a complete  schedule 
of  availabilities  exists  on  the  LRPS  Assignment 
File. 
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Main  Program  (continued) 


IFYFMD 

IFYST 

IHULL 

ILAP 

IMNDY 

IPCTA 

IPDNO 

IPEP 

IPRIO 

ISEQ 

ISRES 

ISTOY 

ISTMO 

ISTRT 

ISTYR 


Last  fiscal  year  for  which  a complete  schedule  of 
availabilities  exists  on  DMAF. 

First  fiscal  year  for  which  a complete  schedule  of 
availabilities  exists  on  DMAF. 

Hull  number  of  the  current  ship. 

Indicates  whether  or  not  the  current  availability 
falls  entirely  within  the  10-year  period  of  the  LRPS 
Assignment  File. 

If  ILAP  = 0,  the  availability  is  within  the 
10-year  period. 

If  ILAP  > 0,  the  availability  ends  ILAP  days 
after  the  end  of  the  10-year  period. 

If  ILAP  < 0,  the  availability  starts  ILAP  days 
before  the  beginning  of  the  10-year  period. 

Mandays  recajired  for  work  during  the  6-month  period 
described  by  the  current  record. 

The  percent  of  total  production  shop  productive 
mandays  to  be  expended  on  alterations  work  for 
the  current  availability. 

The  number  of  the  6-month  period  of  the  current  LRPS 
record.  The  periods  are  numbered  from  1 to  20,  with 
period  1 beginning  on  Oct  1st  of  year  IFSTYR. 

Period  indicator  for  the  current  DMAF  record.  IPER 
equals  "1"  if  the  record  pertains  to  the  first  half  of 
fiscal  year  NOWYR,  "2"  if  the  record  pertains  to  the 
second  half  of  fiscal  year  NOWYR. 

Priority  of  the  current  availability. 

Sequence  number  of  the  current  availability. 

Start  restraint  { in  days)  on  time  in  dry  dock  for 
the  current  availability. 

Start  date  of  the  current  availability  (day). 

Start  date  of  the  current  availability  (month). 

Start  "date"  of  the  current  availability,  rela- 
tive to  1 Oct  of  IFSTYR. 

Start  date  of  the  current  availability  (year). 
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Main  Program  {cx>ntinued) 


ITEMPl 

Production  shop  prodix:tive  mandays  for  the  current 
period  (see  IPER)  of  the  current  availability. 

ITEMP2 

Total  production  shop  productive  mandays  for  the 
current  availability. 

ITOTOY 

Number  of  days  in  dry-dock  for  the  current  avail- 
ability. 

iTonw 

Total  production  shop  productive  mandays  for  the 
current  availability. 

lUWCPD 

Dock  period. 

lUNIT 

Variable  unit  number.  lUNIT  is  set  to  "7''  if  the 
current  availability  is  a depot  maintenance  avail- 
ability; otherwise,  it  is  set  to  "9". 

lYDNO 

The  number  of  the  yard  for  the  current  availability 
( read  from  the  LRPS  Assignment  File) . 

11 

IX)-loop  index. 

J 

DO-loop  index. 

LRPSID(6) 

LRPS  Assignment  File  identification  (current  sector). 

MAP 

Contains  the  characters  "MAP". 

MATNOA 

Alterations  matrix  number  for  the  current  avail- 
ability. 

MATVOR 

Repair  matrix  nimber  for  the  current  availability. 

MUNOW{8) 

Matrix  nimber  to  be  assigned  to  UNOW  work  done  by  the 
shipyard  indicated  by  the  subscript. 

MUNSW(8) 

Matrix  number  to  be  assigned  to  UNSW  work  done  by 
the  shipyard  indicated  by  the  subscript. 

NC 

Contains  the  characters  "NC". 

NOWYR 

Fiscal  year  of  the  current  DMAF  record  (see  IPE3?) . 

OS 

Contains  the  characters  "OS". 

ow 

Contains  the  characters  "OW". 

PS 

Contains  the  characters  "PS". 
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Main  Program  (continued) 


PSA 

RNC 

RUNID(IO) 

SFX: 

SFX?rOR(4) 

SGPOT 

SHIP 

SNEWS 

SPASC 

SPEC 

SW 

UDOC 

UNOS 

IINOW 

UNSW 

Y 

YARD(8) 

YDNME(IO) 


Contains  the  characters  "PSA”. 

Contains  the  characters  "RNC". 

DMPPS  run  identification. 

Sector  of  the  current  availability. 

Array  containing  the  following  sets  of  characters: 
(1)  "PW”,  (2)  "NW",  (3)  "NE",  and  (4)  "PE". 

Contains  the  characters  "SGROT". 

Ship  type  of  the  current  availability. 

Contains  the  characters  "SNEWS" . 

Contains  the  characters  "SPASC". 

Specialization  category  for  the  current  availability. 

Contains  the  characters  "SW". 

Contains  the  characters  "UDOC". 

Contains  the  characters  "UNOS". 

Contains  the  characters  "UNCW". 

Contains  the  characters  "UNSW". 

Shipyard  of  the  current  availability. 

List  of  shipyards  whose  UNOS  work  is  to  be  split  into 
two  parts — UNCW  and  UNSW. 

List  of  shipyards  within  a sector,  as  read  from  the 
LRPS  Assignment  File. 
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2.1.7  SAMPLE  PUN 


The  sample  run  of  PRELIM  used,  as  inputs,  extracts  of  actual  LRPS 
Assignment  Piles  created  by  NAVSEA  071.  These  extracts  contained  the 
reouired  header  records,  the  trailer  record,  and  only  those  ship  records 
which  pertained  to  CGN  9-CV  62  ships.  The  input  cards  used  in  the  sample 
run  indicate  that  fiscal  years  78-82  were  selected  as  the  five  years  of 
interest.  In  addition,  the  input  cards  give  the  UtJOW/UNSW  fractions  used 
by  NAVSEA  during  their  full-scale  runs.  The  remainder  of  this  section 
presents  listings  of  the  input  cards  and  input/output  files  used  by  PRELIM 
for  the  sample  run. 


Unit  5 - Card  Inputs 


78  OMPPS 

SAMPLE 

RUM  - FEB  1977 

MORVA 

?951 

.7693 

2901 

.2307 

CHASN 

2952 

.<i96«i 

2902 

• 5036 

PTSMH 

2953 

.1973 

2903 

.8027 

PHILA 

295*» 

• 5030 

2904 

.4970 

LBECH 

2955 

• 6067 

2905 

.3933 

PUGET 

2956 

.3258 

2906 

.6742 

MARE 

2957 

.3662 

2907 

.6338 

PEARL 

2958 

.7A87 

2908 

.2513 
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Unit  1 (Input)  - LPPS  Assignment  File  (Navy  Fast) 
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BESrAVAIUBlE  COPY 

Unit  7 (Output)  - Depot  Maintenance  Assignment  File,  Version  0 


NORVACV 

62 

40  RO 

11212fl01928CVANE781 

140469 

346352 

4123 

NOPVACtf 

62 

40*RO 

112122101978CVANE282 

199596 

346352 

412  3 

NORVACGN 

32 

4 RA 

62128 

82228AANNE782 

20  400 

20400 

39  1 

NORVACV 

62 

40*RO 

112122l0192eCVANE291 

6286 

346352 

4123 

NORVACV 

60 

60  RO 

4202912  129CVANE292 

194944 

240000 

4723 

NORVACGN 

38 

4 RA 

8 

32910  229AANNE292 

11955 

12000 

32  1 

NORVACV 

62 

41  RA 

9 

179112679CVANE792 

29389 

69170 

4212 

NORVACV 

60 

60*RO 

4202912  179CVANE801 

45055 

240000 

4 72  3 

NORVACGN 

38 

4*RA 

8 

32910  279AANNE801 

44 

120  00 

32  1 

NORVACV 

62 

41*RA 

9 

179112679CVANE801 

39780 

69170 

4212 

NORVACV 

•^9 

42  RA 

5 

3 80 

22980CVANE802 

6Q000 

60000 

4317 

NORVACGN 

32 

10  RO 

1 

281 

3 582AANNE811 

68369 

278000 

1413 

NORVACGN 

»2 

10*RO 

1 

281 

3 582AANNE812 

161821 

278000 

1413 

NORVACGN 

32 

10  *RO 

1 

261 

3 582AANNE821 

47808 

278000 

1413 

NORVACV 

59 

43  RA 

10 

181 

1 182CVANE821 

60000 

60000 

4417 

NORVACGN 

38 

10  RO 

7 

182 

9 283AANNE822 

69808 

278000 

913 

CHAGNCGN 

40 

4 RA 

5 

182 

7 182AANNE822 

12000 

12000 

100  1 

LBECHCV 

43 

40  RO 

113072112978CVANH781 

124004 

342067 

1724 

LBECHCV 

43 

40*RO 

11 S077112978CVANN782 

199985 

342067 

1 724 

LBECHCV 

43 

40*RO 

11 J027112978CVANM791 

18076 

342067 

1724 

LBFCHCV 

41 

40  RO 

101280101281CVANHA11 

179092 

396045 

0 1 

LBECHCV 

41 

40  ’RO 

101280101281CVANH812 

215422 

396045 

0 1 

LBECHCV 

41 

40*RO 

101280101281CVANH821 

1474 

396045 

0 1 

PU6ETCV 

61 

50  RO 

21577 

2157eCVANW781 

111606 

443300 

3824 

PUGETCV 

41 

36  RA 

111078 

11179CVANV791 

40  000 

40000 

4817 

PUGFTCGN 

25 

24  RA 

11529 

31579AANNM791 

30  000 

30000 

20  1 

PUGETCGN 

36 

4 RA 

11529 

41679AANNH791 

43925 

42204 

24  1 

PUGFTCGN 

35 

11  RA 

11529 

31579AANNH791 

12  000 

12000 

100  1 

PUGETCGN 

36 

4*RA 

11529 

41679AANNN792 

3278 

42204 

24  1 

PUGETCGN 

9 

30  C 

4 

129 

4 182AANNH292 

82471 

239000 

0 9 

PUGETCGN 

39 

4 RA 

71529 

91579AANNN792 

12000 

12000 

100  1 

PUGETCGN 

9 

30*C 

4 

179 

4 182AANNM801 

1 63  5 0 8 

739000 

0 9 

PUGETCGN 

9 

30  *0 

4 

179 

4 182AANNW8C2 

164152 

239000 

0 9 

PUGETCGN 

36 

10  RO 

41480 

61481AANNM8'’2 

116368 

228550 

14  9 

PUGETCGN 

9 

30*C 

4 

179 

4 182AANNM811 

163582 

739000 

0 9 

PUGETCGN 

36 

10*RO 

41480 

614eiAANNM811 

144621 

278550  \ 

14  9 

PUGETCGN 

9 

30 ’C 

4 

179 

4 182AANNM812 

123009 

739000 

14  9 

PUGETCGN 

36 

l?*RO 

41480 

61481 AANNH812 

17560 

228550 

14  9 

PUGETCGN 

35 

0 RO 

6 

181 

8 182AANNM812 

25760 

298502 

1419 

PUGETCGN 

9 

30  *0 

4 

179 

4 182AANNM821 

42207 

739000 

0 9 

PUGETCGN 

35 

0*RO 

6 

181 

8 162AANNW821 

165233 

298507 

1419 

PUGETCGN 

9 

30 ’C 

4 

179 

4 182AANNM822 

68 

739000 

0 9 

PUGETCGN 

35 

0*RO 

6 

181 

6 182AANNH822 

57513 

298507 

1419 

PUGETCGN 

25 

30  RO 

6 

182 

8 183AANNH822 

25260 

298507 

1419 

0 06  CV 

60 

53  RA 

1 

678 

4 378CVAPE281 

86922 

89360 

4017 

0 06  CV 

60 

53*RA 

1 

6 78 

4 378CVAPE782 

2 382 

89360 

4012 

D 06  CV 

59 

41  RA 

11 

378 

12979CVAPE791 

23258 

73258 

3917 

0 06  CV 

60 

61  RA 

7 

18210  182CVAPE822 

59484 

60000 

4217 

0 11  CV 

61 

51  RA 

2 

180 

5 180CVAPH801 

44312 

60000 

42  1 

0 11  CV 

61 

51*RA 

2 

180 

5 180CVAPM802 

15687 

60000 

42  1 

D 11  CV 

62 

42  RA 

1 

281 

4 181CVAPM811 

59925 

60000 

41  1 

D 11  CV 

62 

42*RA 

1 

281 

4 181CVAPM812 

74 

60000 

41  1 

0 11  CV 

61 

52  RA 

9 

18112  181CVAPM812 

14731 

60000 

46  1 

0 11  CV 

61 

52*RA 

9 

18112  181CVAPM821 

45268 

60000 

46  1 

0 11  CV 

62 

43  RA 

5 

182 

8 182CVAPN822 

60000 

60000 

41  1 

0 12  CV 

43 

41  RA 

31080 

71180CVAPM801 

2096 

10000 

017 

0 12  CV 

43 

41*RA 

31080 

71180CVAPH802 

7903 

10000 

017 

NMPACCV 

41 

35  RA 

21078 

91178CVAPM282 

40000 

40000 

491  7 

34 


Unit  8 (Output)  - DMAF  Run  Identification  File 


78  DHPPS  SAMPLE  RUN  - FEB  1977 
NE-04  tl0476OFFICIAL  USE 
NM-08  122076OFFICIAL  USE 
PE-02  1009760FFTCIAL  USE 
PM-02  1007760FFTCIAL  USE 


BESrAVAIUBLE  COPY 

Unit  9 (Output)  - Non-Depot  Maintenance  File 


SNEWSCGN 

39 

2 

FO 

11  977 

1 678AANPE7ei 

0 

0 

0 

1 

SNFMSCGN 

40 

2 

FO 

11  678 

1 579AANPE791 

6000 

6000 

0 

1 

SNEMSCGN 

41 

2 

FO 

31780 

51680AANPE8ni 

618 

5000 

0 

1 

SNFMSCGN 

41 

2*F0 

31780 

5168CAANPE802 

4381 

5000 

0 

1 

NORVACGN 

39 

3 

RS 

b2678102678AANNF782 

31554 

35000 

0 

1 

NORVACGN 

39 

3*1»S 

62678102578AANNE791 

3445 

3500  0 

0 

1 

NORVACGN 

40 

3 

PS 

71679111679AANNE792 

30588 

4500  0 

0 

1 

NORVACGN 

40 

3*PS 

71679111679AANNE801 

14411 

45000 

0 

1 

NORVACGN 

41 

3 

PS 

121580 

32081AANNE811 

45000 

45000 

0 

1 
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2.2  PROGRAM  ERRCHK 


2.2.1  DESCRIPTION 

The  functions  of  the  program  ERRCHK  are  to  re-number  the  records 
of  the  Depot  Maintenance  Assignment  File  (DMAF) , to  scan  the  records 
for  errors  in  sequence  number  and/or  percent  alterations,  and  to  deter- 
mine the  correct  value  for  the  continuation  indicator.  The  DMAF  which 
is  input  to  ERRCHK  is  a sorted  version  of  the  file  created  by  the  pro- 
gram PRELIM.  The  sort  is  made  on  the  following  parameters,  in  the 
order  listed: 

• Ship  type 

• Hull  number 

• Availability  start  date  (year,  month,  day) 

• Sequence  number 

• Fiscal  year  (this  record) 

• Period  (this  record) 

Each  parameter  is  sorted  in  ascending  order.  'Ibis  sort  assures  that  all 
records  describing  a particular  ship-availability  will  be  adjacent  on 
the  file  and  that  other  records  describing  availabilities  for  the  same 
ship  will  be  chronologically  ordered. 

After  the  sort,  the  record  numbers  are  no  longer  in  ascending  order. 
Therefore,  ERRCHK  re-numbers  them,  starting  with  one  ("1")  and  increment- 
ing by  one  for  each  subsequent  record. 

In  addition,  ERRCHK  sets  the  value  of  the  continuation  indicator 
according  to  the  following  logic:  Tbe  continuation  indicator  for  the 
first  record  of  a given  ship-availability  on  DMAF  should  contain  a blank. 
Subsequent  records  describing  the  same  ship-availability  should  contain 
an  asterisk  ("*")•  Since  all  records  for  any  particular  availability 
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appear  together  (after  the  sort),  the  program  need  only  check  the  dis- 
tinguishing parameters  (i.e.,  ship  type,  hull  number,  availability  dates, 
and  type  work)  between  the  current  record  and  its  predecessor  to  deter- 
mine the  correct  value  for  the  continuation  indicator. 

In  addition,  EPRCHK  examines  the  values  for  sequence  number  and 
percent  alterations  for  each  record  on  DMAF  except  those  with  the  ship 
type  field  containing  "UNOS"  (Unscheduled/Other  Shipwork) , •'UNSW  (Unsched- 
uled Shipwork) , "UNCW"  (Other  Shipwork),  or  "MAP"  (Military  Assistance 
Program).  If  an  error  is  found  in  any  of  the  other  DMAF  records,  an  error 
flag  is  set  and  subroutine  ERROR  is  called  to  print  out  the  appropriate 
error  message.  Table  2.2-1  presents  the  possible  values  for  the  error 
flag,  the  conditions  under  which  they  are  set,  and  the  error  message 
printed  out. 

Eigure  2.2-1  presents  the  hierarchical  diagram  of  ERRCHK. 


Figure  2.2-1  - ERRCHK  Hierarchical  Diagram 
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Percent  alterations  exceeds  100.  PERCENT  ALT.  GREATER  'fflAN  100 


Main  Program 


The  main  program  of  ERRCHK  is  responsible  for  reading  in  the  records 
of  DMAF,  assigning  a revised  record  number,  determining  the  correct 
value  of  the  continuation  indicator,  and  checking  the  percent  alterations 
and  sequence  number  fields  for  error.  If  an  error  is  found,  a flag  is  set 
and  subroutine  ERROR  is  called.  The  main  program  also  writes  the  revised 
DMAF  records  on  unit  2. 

Subroutine  ERROR 

Subroutine  ERROR  prints  out  an  error  message  (depending  on  the 
value  of  the  error  flag)  and  certain  key  parameters  needed  to  identify  the 
erroneous  record  (i.e.,  record  number,  ship,  type  work,  availability 
dates,  sequence  number,  and  percent  alterations). 
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2.2.2  RUN  SET-UP 


The  following  set-up  is  used  to  run  the  ERRCHK  proqrain  on  the  IBM 
360/370  computer: 


//NlfSERCHK  JOB  (X*)(*)(XXX1<X,XXXX*»  . USER,  CLASSIC.  F I NE  = «.  1 0 1.  MS&LEVEL  = 1 
//JOBLIB  00  OSM=NVS01. DEPOT. LIB, 0ISP=SHR 

//  EXEC  SDA  ISORT  DllAF  ONTO  BACKUP  FILE! 

//SORTIN  DO  DSN=NVS01.DPAE a.DArA,DISP=SHR 
//SORTOUT  DO  OSNsMWSOl.OMAF. BACKUP. DATA, 0ISP=3HR 

//SYSIN  00  • SORT  BY  SHIP,  MULL,  START  DATE,  SEQ  NO,  FY 

SORT  F I ELD S = ( 6, S, A, 26, E, A, 22, 4, A, 14, 4, A, 3 9, 3, A) ,FORMAT=CH 

//  EXEC  PGM^ERRCHK  (EXECUTE  PROGRAM  ERRCHKT 

//GO.FT05F001  DO  • 


ERRCHK  card  inputs  (unit  5) 


//GO.FTObFOOl  DO  SYSOUT=A  (LIST  OF  ERRORS) 
//GO.FTOlFOOl  DO  OSN  = NVS 0 1 . OHAF. B ACKUP. DAT  A , 01 SP= 3M R (INPUT  FILE) 
//GO.FT02F001  DO  DSN  = M VSO I . OMAFl . 0 A I A,0 ISP  = SMR  (OUTPUT  filEI 


BBUAVAIUBIE  COPlf 
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2.2.3 


INPUTS 


Card  inputs  are  made  using  unit  5.  The  format  for  these  cards 
is  presented  in  Section  2. 2. 3.1. 

Unit  5 - Card  input  which  provides  run  identification 
information 

Ilie  following  additional  unit  is  used  to  input  information  from 
a disk  file  created  by  the  program  PRELIM: 

Unit  1 - Depot  Maintenance  Assignment  File,  Version  0 
(DMAF-0) 

Ttie  format  for  this  file  is  given  in  Section  2. 2. 3. 2. 
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2. 2. 3.1  Unit  5 - Card  Input 


Only  one  card  is  input  to  ERRCHK.  Its  format  is: 

Variable  Name  Description  Field  Format 

C0^WNT(l-4)  Run  identification  1-16  4A4 


2. 2. 3. 2 Unit  1 - Depot  Maintenance  Assignment  File,  Version  0 (DMAF-0) 

DMAF-0  contains  information  describing  all  depot  maintenance  ship- 
availabilities  scheduled  for  yard-work  at  both  Navy  and  privately  owned 
shipyards  during  the  selected  five- fiscal-year  period.  Depot  maintenance 
availabilities  are  those  availabilities  with  a type  of  vtork  other  than 
Fitting  Out  (FO),  Post  Shakedown  (PS),  or  New  Construction  (NC). 

Each  semi-annual  period  of  a fiscal  year  within  which  an  availability 
falls,  corresponds  to  a record  on  DMAF-0.  Note  that  there  may  be  more 
than  one  DMAF  record  for  any  particular  availability. 

The  DMAF-0  file  is  sorted  in  ascending  order  by  the  following 
parameters: 

• Sh ip  type 

• Hull  number 

• Availability  start  date  (year,  month,  day) 

• Sequence  number 

• Fiscal  year  (this  record) 

• Period  (this  record) 
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The  format  of  each  record  in  the  DMAP-0  file  is  as  follows: 


Variable  Name 

Description 

Field 

Format 

Y 

Shipyard 

1-5 

A5 

ISHIP 

Ship  type 

6-9 

A4 

IHULL 

Hull  number 

10-13 

14 

ISEQ 

Sequence  number 

14-17 

14 

OONT 

Continuation  indicator 

18 

A1 

AVAIL 

lype  work 

19-21 

A3 

ISnATE(l-3) 

Availability  start  date 
(month,  day,  year) 

22-27 

312 

IEnATE(l-3) 

Availability  end  date 
(month,  day,  year) 

28-33 

312 

A(l-8) 

Sector,  mandays,  matrix 
numbers,  etc. 

34-63 

7A4,A2 

IPCTA 

Percent  alterations 

64-66 

13 

B(l-3) 

Labor  distribution 
histogram  number,  sort 
key,  etc. 

67-76 

2A4,A2 
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2.2.4  OUTPUTS 


The  following  unit  is  used  by  ERRCHK  for  generating  hardcopy  output: 
Unit  6 - Error  messages 

Section  2.2.7  presents  a sanple  of  this  output. 

ERRCHK  uses  the  following  additional  unit  to  store  information  on 
disk  for  use  by  subsequent  programs: 

Unit  2 - Depot  Maintenance  Assignment  File,  Version  1 
(DMAF-1) 

Ttie  format  for  this  file  is  given  in  Section  2. 2.4.1. 
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2. 2. 4.1  unit  2 - Depot  Maintenance  Assignment  File,  Version  1 (DMAP-1) 


The  format  for  each  record  is  as  follows: 


Variable  Name 

Description 

Field 

Format 

Y 

Shipyard 

1-5 

A5 

ISHIP 

Ship  type 

6-9 

A4 

IHULL 

Hull  number 

10-13 

14 

ISEQ 

Sequence  number 

14-17 

14 

CONT 

Continuation  indicator 

18 

Ai 

AVAIL 

Type  work 

19-21 

A3 

IDATE(l) 

Availability  start  date 
(month,  day,  year) 

22-27 

16 

IDATE(2) 

Availability  end  date 
(month,  day,  year) 

28-33 

16 

A(l-8) 

Sector,  mandays,  matrix 
number,  etc. 

34-63 

7A4,A2 

IPCTA 

Percent  alterations 

64-66 

13 

B(  1-3) 

labor  distribution 
histogram  number,  sort 
key,  etc. 

67-76 

2A4,A2 

IREC 

Record  number 

85-90 

16 

A general  description  of  this  file  is  presented  in  Section  2. 2. 3. 2. 
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oo  oooo  o o o o o ooooooonooooooooooooooooooooooooo 


•••PROGRAM  ERRCHKdNRUT, OUTPUT, TAPE9xINPUT,TAPE6=0UTPUT,TAPEl,TAPE2 I •••♦  10 


ERRC  20 
ERRC  30 

ERRCHK  (ERROR  CHECK)  READS  EACH  OHAE  RECORD  ANO  PERFORMS  THE  ERRC  40 

FOLLOWING  FUNCTIONSt  ERRC  SO 

ERRC  60 

-RE-NUMBERS  THE  RECORDS.  ERRC  70 

-DETERMINES  THE  PROPER  VALUE  OF  THE  CONTINUATION  INDICATOR  ANO  ERRC  83 

RESETS  IT,  IF  NECESSARY.  ERRC  90 

-CHECKS  SEQUENCE  NUMBER  ANO  PERCENT  ALT.  FOR  NON-UNOS  WORK  ANO  ERRC  100 

CALLS  SUBROUTINE  ERROR  TO  PRINT  A MESSAGE  IF  AN  ERROR  IS  FOUND.  ERRC  110 

ERRC  120 

ERRCHK  ASSUMES  THAT  THE  OMAF  IS  SORTED  FIRST  BY  SHIP  TYPE,  THEM  HULL  ERRC  130 

NUMBER,  THEN  AVAILABILITY  START  DATE  ANO  FINALLY  BY  FY  AND  PERIOD.  ERRC  140 

ERRC  150 

THE  FOLLOWING  UNITS  ARE  USED  BY  THE  PROGRAM!  ERRC  160 

ERRC  170 

UNIT  1 - INPUT  - DEPOT  MAINTENANCE  ASSIGNMENT  FILE  (OMAF),  ERRC  180 

VERSION  0 ERRC  190 

UNIT  2 - OUTPUT  - OMAF,  VERSION  1 (WITH  REVISED  RECORD  NUMBERS  ANOERRC  200 
CORRECTED  CONTINJATION  INDICATORS)  ERRC  210 

UNIT  5 - INPUT  - CARO  INPUT  GIVING  RUN  lOENT.  ERRC  220 

UNIT  6 - OUTPUT  - LIST  OF  ERRORS  ENCOUNTERED  IN  SEQUENCE  NUMBER  ERRC  230 

OR  PERCENT  ALT.  ERRC  240 

ERRC  250 

PROGRAMMED  BY  JAY  MANOELBAUM,  NAVAL  SEA  SYSTEMS  COMMAND  (CODE  0711),  ERRC  260 

AUGUST  197S.  ERRC  270 

ERRC  280 

REVISED  BY  LINDA  L.  LANATRICE,  NAVAL  SHIP  RESEARCH  ANO  DEVELOPMENT  ERRC  290 

CENTER  (CODE  186),  JULY  1976.  ERRC  300 

ERRC  310 

ERRC  320 

ERRC  330 

DIMENSION  I0ATE(2),I0ATFP<2).A(8),B(3)  ERRC  340 

ERRC  350 

COMMON  /MSSG/C0MMNT(4) .ISHIP,IHULL,ISEQ,  AVAIL, ISDATE ( 3) , ERRC  360 

1E0ATE(3),IREC,IPCTA  ERRC  370 

ERRC  380 

REALMS  Y ••••  390 

ERRC  400 

REAL  ISHIP,ISMIPP,NC,MAP,NRT  ERRC  410 

ERRC  420 

DATA  NC/3HNC  /,FO/2HF07,  PS/2HPS/,  PSA/3HPSA/,  RNC/3HRMC/,  ERRC  430 

. UNSW/4HUNSW/,  UN0M/4HUN0M/,  MAP/3HMAP/,  C/IHC/,  RA72HRA/,  ERRC  440 

. UN0S/4HUN0S/,  NRT73HNRT/  ERRC  450 

ERRC  460 

DATA  BLANK/IH  /,AST/1HY/  ERRC  470 

ERRC  480 

ERRC  490 

ERRC  500 

READ  HEADING  INFORMATION.  ERRC  510 

READ  (5,90)  COMMNT  ERRC  520 

90  FORMAT  (4A4)  ERRC  530 

ERRC  540 

INITIALIZE  ANO  INCREMENT  RECORD  NUMBER.  ERRC  550 
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o o net  n c-  oo  ooo  o o o oo 


IREC=0  CKKC  960 

ERRC  970 

INITIALIZE  PREVIOUS  SHIP  VARIABLES.  ERRC  980 

ISHIPPsBLANK  ERRC  990 

IHULLP=0  ERRC  600 

AVAILP^BLANK  ERRC  610 

lOATEPdMO  ERRC  6Z0 

lOATEPIZIsQ  ERRC  630 

too  IREC=IREC»1  ERRC  660 

ERRC  690 

READ  RECORD  AND  VRITE  IT  NITH  RECORD  NUMBER ERRC  660 

••••READ  11,1091  Y,ISHIP,IHULL,ISEQ,CONT, AVAIL, lOATE.ISDATE.  ••••  670 

READ  (l,109,END3Za0)  T , ISHIP, IHULL , ISEQ, CONT, AVA IL, IDATE, ISDATE,  ••••  680 
. IEDATE,A,IPCTA,B  ERRC  690 

109  FORMAT  ( A9, A6, ZI 6, A1 , A3, ZI6, TZZ, 61 Z , 7 A6 , AZ, 13 ,2 A6  , AZ > ERRC  700 

••••IF  (EOFdl.NE.O.OI  60  TO  ZOO  ••••  710 

ERRC  7Z0 

DETERMINE  PROPER  VALUE  OF  CONTINUATION  INDICATOR ERRC  730 

COMT=AST  ERRC  740 

IF  IISMIP.EQ.ISHIPP  .AND.  IHULL. EO.IHULLP  .AND.  lOATE ( 1 1 . EQ.  ERRC  790 

. IDATEPdl  .AND.  I DATE (Z I . EQ.I DATE P(Z)  .AND.  AVAIL. EQ.AVAILP)  ERRC  760 

. CO  TO  110  ERRC  770 

CONTsBLANK  ERRC  780 

ISHIPPsISHIP  ERRC  790 

IHULLP^ IHULL  ERRC  800 

IDATEPIllsIOATEIll  ERRC  810 

IOATEP(Z»sIOATE(ZI  ERRC  8Z0 

AVAILP^AVAIL  ERRC  830 

110  MRITE  IZ,1Z0)  T, ISHIP, IHULL, ISEOtCONT, AVAIL, lOATE, A, IPCTA,  ERRC  840 

. B,IREC  ERRC  890 

IZO  FORMAT  (A9,A4,ZI4,A1, A3,ZI6.  7 A4 , A Z, 1 3, Z A4 , AZ, T89, 161  ERRC  860 

ERRC  870 

DO  MOT  ERROR  CHECK  UNOS  MORK ERRC  880 

IF  dSHIP. EQ.UNOH. OR. ISHIP. EQ.UNSM. OR. ISHIP. EQ. UNOS. OR.  ERRC  890 

A ISHIP. EQ. MAPI  GO  TO  100  ERRC  900 

ERRC  910 

FLAG  invalid  UMbtQUEMCEO  WORK ERRC  9Z0 

IF  (ISEQ. LE. 01  CALL  ERRORIll  ERRC  930 

ERRC  940 

NRITE  ERROR  IF  ALT  PERCENT  NEGATIVE  OR  LARGER  TMAN  100 ERRC  990 

IF  (IPCTA.lt. 01  CALL  ERR0R(3I  ERRC  960 

IF  (IPCTA.GT.lOO)  CALL  ERR0R(4I  ERRC  970 

ERRC  980 

CO  TO  1 IF  ALT  PERCENT  MAY  BE  ZERD ERRC  990 

IF  (AVAIL. EQ.NRT  .OR.  AVAIL. EQ.C  .OR.  AVAIL. EQ.RA  .OR.  ERRCIOOO 

. AVAIL. EQ.NC  .OR.  AVAIL. EQ.FO  .9R.  AVAIL.EQ.PS  .OR.  ERRClOlO 

B AVAIL. EQ.PSA  .OR.  A VA IL. EQ. RNCI  GO  TO  100  ERRCIOZO 

ERRC1030 

FLAG  ZERO  PERCENT  ALT ERRC1040 

IF  (IPCTA.EQ.Oi  CALL  ERRORIZI  ERRC109Q 

CO  TO  100  ERRC1060 

C ERRCIOZO 

ZOO  STOP  ERRCIOOO 

END  ERRC1090 
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oo  oo  oo  oo  oo  ooooo  o o o o o o o o o o o o o o o 


best  4V4IMB[f  copy 


SUBROUTINE  ERRORIIFLAGI 


SUBROUTINE  ERROR  PRINTS  A NESSAGE  FOR  EACH  DNAF  RECORD  WITH  AN 
ERROR  IN  SEQUENCE  NUMBER  OR  PERCENT  ALT.  THE  MESSAGE  PRINTED  OEPEN 
ON  THE  VALUE  OF  IFLAGI 

IFLAG  MESSAGE 

1 INVALID  SEQUENCE  NUMBER 

2 NO  PERCENT  ALT. 

3 PERCENT  ALT.  LESS  THAN  ZERO 

A PERCENT  ALT.  GREATER  THAN  100 


real  ISHIP 

COMMON  /HSSG/C0MMNT(4I, ISHIP, IHULL.ISEQ,  AV A IL . ISO ATE  1 3 > , 
. IEOATE«3»,IREC,IPCTA 

DATA  IPAGE/0/,LINE/G0/ 


BEGIN  NEM  PAGE  IF  LINE  COUNT  EXCEEDS  55.  

IF  (LINE. LE. 551  GO  TO  110 
IPAGE=IPAGE*1 

HRITE  16,100)  IPAGE,COMMNT 

100  FORMAT  (1H1/5X, 15HREP0RT  OM-60- 01 , 5 OX .AHPAGE , 1 3/5X , AAA / 
5X, 15HPROGRAMI  ERRCHK//// 

19X,38HPERCENT  ALT.  AND  SEQUENCE  NUMBER  CHECK/IBX , 38 ( 
13X,5AH  SHIP  TN  SEQ  AVAILABILITY  OATES  (AL 

13X,5AH 

I 

LINE=1A 


IH-)/// 
T ERROf 


WRITE  APPROPRIATE  ERROR  MESSAGE.  — 
110  LINE=LINE*1 

GO  TO  (120,140,160,1801,  IFLAG 


IFLAG=1 

120  HRITE  (6,1301  I REC, I SHIP , IHULL,  A V AI L , ISEQ, I SO ATE, I ED ATE , IPCT A 
130  FORMAT  ( 3X, 16, IH. , 3X, A4, 15, 3X, A3, 1 5 , lA ,2 ( IH/, 1 2 ) , 2H  -,I3,2(1H/,1 
.,  15,3X,23HINVALIO  SEQUENCE  NUMBER) 

RETURN 


IFLAG=2 

lAO  HRITE  (6,150)  IREC, I SHIP, IHULL , A VAIL , ISEQ,I SOATE , lED ATE , IPCT A 
150  FORMAT  ( 3 X ,16, IH. , 3X, AA , I5, 3X , A3, 1 5, I A, 2 ( IH/, 12 ) , 2H  -,I3,2(1H/,I 
.,  I5,3X,15HN0  PERCENT  ALT.) 

RETURN 

IFLAGX3 

160  HRITE  (6,170)  IREC, I SH I P, IHULL , AVAIL, ISEQ, ISDATE,IEDATE,IPCTA 
170  FORMAT  ( 3X ,16 ,1H. , 3X , AA, 15, 3X , A3, 1 5, 1 A, 2 ( IH/, 12 ) , 2H  -,I3,2(1H/,I 
.,  I5,3X,27HPERCENT  ALT.  LESS  THAN  ZERO) 

RETURN 


-IFLAC*A- 


ERRO 

10 

ERRO 

20 

ERRO 

30 

: ERRO 

40 

ERRO 

50 

ERRO 

60 

ERRO 

70 

ERRO 

so 

ERRO 

90 

ERRO 

100 

ERRO 

110 

ERRO 

120 

ERRO 

130 

ERRO 

140 

ERRO 

150 

ERRO 

160 

ERRO 

170 

ERRO 

ISO 

ERRO 

190 

ERRO 

200 

ERRO 

210 

ERRO 

220 

ERRO 

230 

ERRO 

240 

ERRO 

250 

ERRO 

260 

ERRO 

270 

ERRO 

280 

ERRO 

290 

ERRO 

300 

ERRO 

310 

/ERRO 

320 

/ERRO 

330 

ERRO 

340 

ERRO 

350 

ERRO 

360 

ERRO 

370 

ERRO 

380 

ERRO 

390 

ERRO 

400 

ERRO 

410 

ERRO 

420 

)ERRO 

430 

ERRO 

440 

ERRO 

450 

ERRO 

460 

ERRO 

470 

ERRO 

480 

)ERRO 

490 

ERRO 

500 

ERRO 

510 

ERRO 

520 

ERRO 

530 

ERRO 

540 

)ERRO 

550 

ERRO 

560 

ERRO 

570 

ERRO 

5S0 

ERRO 

590 
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ISO  WRITE  <6*190i  IREC.ISHIP.IHULL,  AVAIL . ISEQ« ISOSTE .lEDS TC • IPCTS  ERRO  601 

190  FORHAT  (3X ,1 6, IH. , 3X , AA . 1 5* 3X . A 3. 15t lA. 2 1 IH^, 121 1 I 3,21 lH/« 121 ERRO  610 
I9,3X,29HPERCENT  ALT.  GREATER  THAN  1001  CRRO  620 


RETURN 

END 


ERRO  630 
ERRO  6A0 
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2.2.6  GLOSSARY 


COMMON  VARIABLES 

Common  Block  /MSSG/ 


AVAIL 

Type  of  work  for  a particular  ship-availability 

COMNWT(4) 

Run  identification  information. 

lEEATEO) 

Availability  end  date  where  the  subscript 
to  (1)  month,  (2)  day,  and  (3)  year. 

i efers 

I HULL 

Ship's  hull  number. 

IPCTA 

The  percent  of  production  shop  productive 
mandays  for  alterations  (for  an  availability). 

(PSP) 

IREC 

Record  number  of  current  DMAF-1  record. 

ISDATEO) 

Availability  start  date  where  the  subscript  refers  to 
(1)  month,  (2)  day,  and  (3)  year. 

ISBO 

Sequence  number  of  an  availability. 

ISHIP 

Ship  type  for  an  availability. 
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LOCAL  VARIABLES 


Main  Program 
A(8) 

AST 

AVAIL? 

B(3) 

BLANK 

C 

CONT 

FO 

IDATE(2) 

IDATEP(2) 

IHULLP 

I SHIPP 

MAP 

NC 

NET 

PS 

PSA 

RA 

RNC 

UNOS 

UNOW 

UNSW 

Y 


An  array  used  to  read  and  write  a block  of  infor- 
mation from  DMAF. 

Contains  the  character 

Type  work  for  the  previous  availability. 

An  array  used  to  read  and  write  a block  of  infor- 
mation from  DMAF. 

A one-character  blank  space. 

Contains  the  character  "C". 

Continuation  indicator.  Contains  a blank  for  the 
first  DMAF  record  for  a ship-availability;  contains  an 
asterisk  ("*")  otherwise. 

Contains  the  characters  "FO". 

Availability  start  date  and  end  date. 

Previous  availability's  start  and  end  dates. 

Hull  number  of  the  previous  availability. 

Ship  type  of  the  previous  availability. 

Contains  the  characters  "MAP". 

Contains  the  characters  "NC". 

Contains  the  characters  "NRT". 

Contains  the  characters  "PS". 

Contains  the  characters  "PSA". 

Contains  the  characters  "RA". 

Contains  the  characters  "RNC". 

Contains  the  characters  "UNOS". 

Contains  the  characters  "UNOW". 

Contains  the  characters  "UNSW". 

Shipyard  for  the  current  availability. 
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2.2.7  SAMPLE  RUN 


The  DMAF-0  file  created  by  the  sample  run  of  PRELIM  formed  the  basis 
for  the  sample  run  of  ERPCHK.  A listing  of  this  file  is  presented  in 
Section  2.1.7  (unit  7).  It  is  the  input  to  the  sort  routine  which  pre- 
cedes ERRCHK.  The  sorted  version  of  DMAF-0  is  listed  in  this  section  as 
are  the  other  inputs  to,  and  outputs  from,  ERRCHK. 


Unit  5 (Input)  - Input  Cards 

0?/77-SAMPLE 
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BEST'AVAIWBIE  COPY 

L[nit  _1  (Input)  - Depot  Maintenance  Assignment  File,  Version  0 (Sorted) 


PUGf TCGN 

9 

33  r 

4 17° 

4 182AANNH792 

87471 

739000 

3 9 

PUGFTCGN 

9 

30  *C 

4 179 

4 182AATNW8'’l 

163508 

739000 

0 9 

PUGFTCGN 

9 

30  'C 

4 179 

4 182AANNH8:2 

16415? 

739000 

0 9 

PUGFTCGN 

9 

30  *r 

4 179 

4 182AATNH811 

163582 

739000 

0 9 

PUGFTCGN 

9 

30*r 

4 179 

4 182AANNW812 

123009 

7390C0 

14  9 

PUGFTCGN 

9 

30  ’C 

4 179 

4 182AAK'NW8?1 

42207 

73900u 

0 9 

PUGFTCGN 

9 

30  *C 

4 179 

4 182AAT:nH822 

68 

7390  00 

0 9 

PUGFTCGN 

25 

24  RA 

11579 

31579AANNH791 

3CQ00 

30003 

20  1 

PUGFTCGN 

25 

30  RO 

6 182 

8 182AA^NH8^? 

75760 

298507 

1419 

PUGFTCGN 

35 

11  RA 

115  79 

31579AANNHT91 

12  000 

1200  0 

100  1 

PUGFTCGN 

35 

C RO 

6 lai 

8 182AAT'NM812 

7-.  760 

298507 

1419 

PUGFTCGN 

35 

0 *RO 

6 181 

8 182aANNM821 

16:>233 

298507 

1419 

PUGFTCGN 

:'5 

0*RO 

6 181 

8 182AATNM822 

57513 

298507 

1419 

PUGFTCGN 

36 

4 RA 

115  79 

41679AANNW791 

43925 

47204 

24  1 

PUGFTCGN 

36 

4*RA 

11579 

41679AANNM792 

32  78 

47204 

24  1 

PUGFTCGN 

36 

10  RO 

4148C 

61481AAKNH8‘2 

116368 

278550 

14  9 

PUGFTCGN 

36 

10*R<3 

4148C 

614»1AANNH811 

1 4<4621 

27855u 

14  9 

PUGFTCGN 

36 

1C  *RO 

4148'' 

61  481  A A PNM  812 

17560 

278550 

14  9 

NORVACGN 

37 

4 RA 

62178 

822  78AANNF  782 

2''400 

20400 

39  1 

NORVaCGN 

37 

1"  RO 

1 281 

3 582AATNF8T1 

68369 

278000 

1413 

NORVACGN 

^7 

10  *90 

1 281 

3 582AAGNF812 

161871 

278000 

1413 

NORVACGN 

37 

10  ’RO 

1 281 

3 582AANNF821 

47  808 

278000 

14  13 

NORVACGN 

T8 

4 RA 

8 37910  27gAANNF792 

11955 

1200  0 

32  1 

NORVACGN 

■'fi 

4*RA 

8 37910  279AANNF801 

44 

12000 

32  1 

NORVACGN 

38 

1”  RO 

7 182 

9 283AAKNF822 

69808 

278003 

91  3 

PUGFTCGN 

T9 

4 RA 

71579 

91579AANNM792 

12  000 

120  00 

no  1 

CHASNCGN 

<•0 

4 RA 

5 182 

7 182AANNF822 

12000 

1 20  0 0 

100  1 

NWPACCV 

<♦1 

35  RA 

71078 

911 78rvAPM  782 

40000 

40000 

4917 

PUGETCV 

U1 

36  PA 

111078 

11179rvaNH79l 

40  00  0 

400  0 0 

481  7 

LBFCHCV 

41 

40  RO 

101280101281CVANM811 

1 79097 

396045 

0 1 

LBFCHCV 

41 

40  TRO 

10128ClCi28irVANN812 

215472 

396045 

0 1 

LBFCHCV 

41 

W'  •PO 

1 0 1280101281CVANM871 

1 474 

3<^60  45 

0 1 

LBFCHCV 

43 

40  RO 

11 3077112978CVANM781 

124004 

342067 

1724 

LBFCHCV 

43 

43*PO 

11  30  771129  78CVANM782 

199985 

342067 

1 724 

LBFCHCV 

43 

40  ‘RO 

11 3077117978CVANM791 

18076 

3420  67 

1724 

0 CV 

43 

41  PA 

31080 

7118'’CVAPM801 

•>096 

100  0 0 

0 1 7 

0 1?  CV 

43 

41  ’RA 

31080 

7118CCVAPM802 

7903 

100  0 0 

0 1 7 

D 06  CV 

59 

41  RA 

11  378 

12979CVAPF791 

73258 

73258 

3917 

NORVACV 

59 

42  PA 

5 380 

7295CCVf NE  8^2 

60  000 

6000  0 

4317 

NORVACV 

59 

43  RA 

10  181 

1 182rVANE821 

60  000 

600  00 

4417 

0 06  CV 

60 

53  RA 

1 678 

4 3 78CVAPE781 

86977 

89360 

40  17 

D 06  CV 

60 

53*R  A 

1 6 78 

4 378CVAP''782 

2382 

89360 

40  17 

NOPVACV 

60 

60  PO 

4207912  1 79rVANE7q2 

1 94944 

240000 

4723 

NOPVACV 

60 

60  ‘PO 

4207912  179CVANF881 

45055 

240000 

4723 

D 06  CV 

60 

61  PA 

7 18210  182CVAPF822 

59484 

6000  0 

4217 

PUGFTCV 

61 

50  PO 

21577 

215  78CVANM781 

111606 

443300 

3824 

0 11  CV 

61 

51  PA 

2 180 

5 180CVAPH801 

44312 

600  0 0 

42  1 

0 11  CV 

61 

51  *RA 

2 180 

5 18eCVAPM8n2 

15687 

60000 

42  1 

0 11  CV 

61 

52  OA 

9 18112  18irvAPM812 

14731 

60000 

46  1 

D 11  CV 

61 

52*RA 

9 18112  181CVAPM821 

45268 

600  00 

46  1 

NOPVACV 

62 

4C  PO 

112177101978rVANF781 

14" 469 

346352 

4123 

NORVACV 

62 

40  ‘PO 

112177101978CVANF782 

199596 

346352 

4123 

NORVACV 

67 

40  *PO 

112177101978CVANF  791 

6286 

346352 

4123 

NORVACV 

62 

41  PA 

9 1 79112679CVANF792 

29389 

69170 

421  7 

NORVACV 

62 

41*RA 

9 179112679CVANF801 

39780 

69170 

421  7 

0 11  CV 

62 

42  PA 

1 281 

4 181CVAPH811 

59925 

60000 

41  1 

0 11  CV 

62 

42*PA 

1 281 

4 181CVAPH812 

74 

600  00 

41  1 

0 11  CV 

62 

43  RA 

5 182 

8 182rVAPH822 

60000 

60000 

41  1 

Unit  6 (Output)  - ERRCHK  Printed  Output 


BEST  'AVAIUBiE  COPY 


NUMBER 

NUMBER 

NUMBER 

UJ  UJ  UJ 

o o o • • • 

zzz^-*-*- 

UJ  UJ  UJ  ^ ^ -J 

UJ 

3 3 3 4 4 4 

o 

O O O 

Ul  U)  UJ  ^ ^ ^ 

d. 

to  (O  to  z z z 

UJ  Ul  UJ 

o o o o o o 
M M M 0^  at  at 

a; 

1 

_J  _l  -J  UJ  UJ  UJ 

o 

1 

4 4 4 a.  a.  a. 

q; 

1 

> > > 

a: 

• 

z z z o o o 

UJ 

( 

i-t  l-i  »-)  z Z z 

1 

• 

4 4 4 0 0 0 

< 

i 

^ ^ ^ 

1 

1 

o 

1 

UJ 

1 

I 

1 

to 

1 

rj  rsi  (VJ  <H 

o 

• 

Ul 

1 

o « o <e  o « 

1 

t 

V V N.  V V V 

or 

1 

< 

1 

^ .^4  >^4  (M  (M  (M 

UJ 

( 

o 

1 

^ 

cs 

1 

• 

V V V >.  V N 

X 

1 

i 

« BO  « O O O 

o 

« 

1 

^ ^ w< 

X 

1 

1 

t 

-i 

1 

1 1 1 1 1 1 

UJ 

1 

!-• 

1 

o 

1 

CD 

1 

4H  ^ ^ O O o 

z 

1 

4 

1 

^ ^ fO  ^ to  CO 

UJ 

1 

1 

V V V V V 

3 

1 

1 

'.-1  v4  74  (Si  (SJ  (VJ 

a 

( 

< 

1 

^ 

UJ 

> 

V V V V V 

Vi 

1 

1 

UJ  vC  «o  u o o 

1 

^ ^ ^ 

o 

1 

z 

1 

1 

O 

t 

o o o o o o 

1 

UJ 

1 

4 4 4 

• 

1 

to 

1 

1 

•J 

1 

< 

1 

1 

1 

z 

o o o o o o 

1 

1 

z Qt  at  or  z a 

z 

1 

UJ 

i 

o 

1 

d 

1 

1 

ir\  m tn  *4  ^ 

UJ 

1 

0- 

1 

ro  fo  ro  4 4 4 

0. 

• 

• 

o 

X 

M 

1 

• 

u 

1 

o 

UJ 

Of 

X 

1 

-i 

• 

z z z 

1 

a. 

UJ 

to 

• 

O O tfl  > > > 

X 

X 

1 

u o u u o u 

o 

« 

•• 

Vi 

X 

1 

O' 

K 

« 

o 

K 

o 

^ CM  fO  O ^ (VJ 

a. 

V 

o 

^ ^ W W fO 

MJ  fO  or 

Of 

O 

a. 
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beslavailabie  copy 


Unit  2 (Output)  - Depot  Maintenance  Assignment  File,  Version  1 


PUGETCCN 

9 

30  C 

<•0179 

40ia2AANNN292 

82  421 

739000 

0 9 

1 

PUGETCGN 

9 

30  •€ 

<•0179 

4Q182AANNN801 

163506 

239000 

0 9 

2 

PUGETC6N 

9 

30  *0 

90179 

40182AAI^'NN802 

164152 

239000 

0 9 

3 

PUGETCGN 

9 

30  •€ 

40179 

4B182AANNN811 

16S582 

239000 

0 9 

4 

PUGETCGN 

9 

30  •€ 

40179 

40ie2AANNN812 

123009 

239000 

14  « 

5 

PUGETCGN 

9 

30  *0 

40179 

40182AANNN821 

42202 

739000 

0 9 

6 

PUGETCGN 

9 

30*C 

40179 

40182AANNN822 

68 

739000 

0 < 

2 

PUGETCGN 

?5 

24  PA 

11579 

31529AANNN291 

30000 

30000 

20  1 

a 

PUGETCGN 

25 

30  PO 

60182 

80183AANNN82? 

25260 

298502 

1419 

9 

PUGETCGN 

35 

11  RA 

11579 

31579AANNN291 

12000 

12000 

100  1 

10 

PUGETCGN 

35 

0 RO 

60181 

80182AANNNei2 

25  260 

298502 

1419 

11 

PUGETCGN 

35 

O^PO 

60181 

80162AINNN821 

165233 

29850  7 

141  c 

12 

PUGETCGN 

35 

0»PO 

60181 

80182AANNN822 

52513 

298507 

1419 

13 

PUGETCGN 

36 

4 PA 

11579 

41679AANNN791 

41925 

42204 

24  1 

14 

PUGETCGN 

36 

4*RA 

11579 

41679AANNN792 

J228 

42204 

24  1 

15 

PUGETCGN 

36 

10  RO 

41480 

61481AANNN8Q2 

116368 

228550 

14  9 

16 

PUGETCGN 

36 

lO^PO 

41480 

61481AANNN811 

144621 

228550 

14  9 

12 

PUGETCGN 

36 

10*PO 

41480 

61481AANNN812 

12560 

278550 

14  9 

18 

NOPVACGN 

3? 

4 RA 

62178 

82278AANNE782 

23400 

20400 

39  : 

19 

NOPVACGN 

3? 

10  RO 

10281 

S0582AANNE611 

68369 

278000 

1413 

20 

NOPVACGN 

32 

10*RO 

10281 

30582AANNE8t2 

161821 

278000 

1413 

21 

NOPVACGN 

32 

10  •RO 

10281 

3Q582AANNE  821 

47808 

278000 

1413 

22 

NOPVACGN 

38 

4 RA 

8037910027988NN6792 

11955 

12000 

32  1 

23 

NORVACGN 

38 

4«RA 

8037910027988NNE801 

44 

12000 

32  1 

24 

NOPVACGN 

38 

10  RO 

70182 

90283886NE  822 

69808 

278000 

913 

25 

PUGETCGN 

39 

4 RA 

71579 

9157988NNH792 

12000 

12000 

100  1 

26 

CHASNCGN 

40 

4 RA 

50182 

7018288NNE822 

12000 

12000 

100  1 

22 

NHPACCV 

41 

35  RA 

71878 

91178CV8PH782 

40000 

41000 

4917 

26 

PUGETCV 

41 

36  RA 

111078 

11179C*»MM791 

40000 

40000 

4817 

29 

CBECHCV 

41 

40  RO 

10 1280101 281 CV ANN  811 

129092 

396045 

0 1 

30 

LBECHCV 

41 

40  •RO 

101260101281CVANN612 

215422 

J96045 

0 1 

31 

CBECHCV 

41 

40  •RO 

101280101281CVANM821 

1424 

396045 

0 1 

32 

LBECHCV 

43 

40  RO 

113022112978CVANN281 

124004 

342067 

1724 

33 

LBECHCV 

43 

40*RO 

1 1 30221 129 78C VANN  782 

199985 

342067 

1724 

34 

LBECHCV 

43 

40^RO 

11 3022112926CVANN291 

18076 

342067 

1224 

35 

0 1?  CV 

43 

41  RA 

31080 

71180CVAPN8Q1 

2096 

10000 

012 

36 

0 1?  CV 

43 

41*RA 

31080 

21180CVAPN802 

7903 

10000 

017 

32 

D 06  CV 

59 

41  RA 

110378 

129  79CVAPE291 

73258 

73256 

3917 

38 

NOPVACV 

59 

4?  RA 

50380 

2298QCVANE802 

69000 

60000 

4317 

39 

NOPVACV 

59 

43  RA 

100181 

10182CVANF821 

60000 

68000 

4417 

40 

D 06  CV 

60 

53  RA 

106  78 

40378CVAPE281 

86922 

89360 

4017 

41 

0 16  CV 

60 

53^RA 

10678 

40378rVAPE782 

2382 

89360 

4017 

42 

NOPVACV 

60 

60  RO 

420  791201 29C VANE  292 

194944 

240000 

4723 

43 

NOPVACV 

60 

60  •RO 

42029120179CVANE801 

45055 

240000 

4223 

44 

0 06  CV 

60 

61  PA 

20182108182CVAPE822 

59484 

60000 

4212 

45 

PUGETCV 

61 

50  PO 

21572 

21578CVANy781 

111606 

443300 

3024 

46 

0 11  CV 

61 

51  RA 

20180 

58180CVAPN801 

44312 

60000 

42  1 

42 

0 11  CV 

61 

51  •Pi 

20160 

50ieocv*PN8a2 

15662 

60000 

42  1 

48 

0 11  CV 

61 

52  PA 

90181120181CV8PM812 

14731 

60000 

46  1 

49 

9 11  CV 

61 

52*PA 

90181120181CV8PN821 

45268 

60000 

46  1 

50 

NOPVACV 

62 

40  RO 

112177101978Cy*NF7ei 

140  469 

346352 

4123 

51 

NOPVACV 

62 

40  •PO 

112177101978CV8NE782 

199596 

346352 

4123 

52 

NOPVACV 

62 

40  •PO 

112177101973CV8NE791 

6286 

346352 

4123 

53 

NOPVACV 

62 

41  PA 

90179112679Cy*NE792 

29389 

69170 

4212 

54 

NOPVACV 

62 

41  •PA 

90179112679CW8>C801 

39280 

69170 

4212 

55 

0 11  CV 

62 

42  PA 

10281 

40181CV«Ptt811 

59925 

60000 

41  1 

56 

D 11  CV 

62 

42  •RA 

10261 

40iaiCV*PM812 

24 

60000 

41  1 

57 

0 11  CV 

62 

43  RA 

50182 

8I182CVAPM822 

60000 

60000 

41  1 
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2.3  PPOGPAM  UPDEP 


2.3.1  DESCRIPTION 


The  program  UPDEP  is  used  to  alter  the  Depot  Maintenance  Assignment 
File  (DMAF).  The  updating  process  may  consist  of  adding  records,  deleting 
records,  or  replacing  one  or  more  data  items  or  entire  records.  In 
addition  to  these  operations,  UPDEP  resequences  the  record  numbers  on 
the  file. 

Update  cards  are  used  to  specify  which  record  is  to  be  revised  as 
well  as  which  fields  are  to  be  changed.  Each  update  commana  consists  of 
two  or  more  cards:  an  instruction  card,  and  a data  card  containing  the 
replacement  values.  Deletions  require  only  one  card.  The  instruction 
names  and  the  commands  that  they  signify  are  as  follows: 

*NSRT  - used  for  inserting  one  or  irore  records 

*DELT  - used  for  deleting  one  or  more  records 

*REPL  - used  for  replacing  one  or  more  values 
or  an  entire  record 

The  insertion  command  requires  the  record  number  after  which  records 
are  to  be  inserted.  Any  number  of  records  may  be  inserted.  The  termiia- 
ator  is  the  next  instruction  card. 

The  deletion  coiunand  requires  the  first  and  last  record  number  of 
the  sequence  to  be  deleted.  In  the  case  of  a single  deletion,  the  last 
record  number  may  be  omitted. 

To  replace  one  or  more  values  or  an  entire  record,  the  number  of  the 
record  that  is  being  changed  is  required.  The  replace  command  may  be  used 
to  replace  the  same  value  or  values  in  a series  of  records.  It  will  then 
require  the  first  and  last  record  number  of  the  sequence  on  the  instruc- 
tion card. 

All  update  instruction  cards  must  be  in  ascending  order  by  record 
number.  A replace  command  cannot  reference  a record  previously  deleted. 

The  data  card  containing  the  replacenent  values  consists  of  a card 
image  of  the  record  to  be  updated.  If  a field  on  the  update  card  is 


blank,  the  corresponding  field  on  the  new  DMAF  is  not  changed.  If  a field 
on  the  update  card  is  non-blank,  the  information  in  the  corresponding 
field  of  the  DMAF  is  replaced  with  that  on  the  update  card.  If  the  first 
character  of  a field  on  the  update  card  is  a and  the  remainder  of  the 
field  is  blank,  the  corresponding  field  on  the  new  DMAF  is  blank  filled. 

An  update  deck  is  terminated  with  a "99999"  card,  and  the  new  DMAF 
is  automatically  resequenced  by  ones.  The  DMAF  to  be  changed  or  updated 
resides  on  unit  8,  and  the  new  or  updated  DMAF  is  written  on  unit  9. 
Update  control  cards  are  assigned  to  unit  5 and  error  messages  are  written 
on  unit  6. 
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2.3.2  RUN  SET-UP 


The  following  set-up  is  used  to  run  the  UPDEP  program  on  the 


360/370  computer: 


//NVSUPOEP  JOB  JXKXXXKXXXX.XXUX*) , USER. CL»SS=C. TI ME=« , 20) .HSGLEVEL = 1 
//JOBLIB  00  OSNsNVSOl. DEPOT. lib, 0ISP=SHR 
ft  EXEC  PGH=UP0EP 
//GO.ETOSFOOl  DO  • 


UPDEP  card  Inputs  (unit  5) 


//GO.ET06F 001  00  SYSOUT^A  (ERROR  NESSAGESI 

//GO.FTOSFOOl  00  OSN=NVSa I . OMAFl . OA TA ,OISP=SMR  (INPUT  FILE) 

//GO.FT09F 001  00  OSN  = N VS  3 1 .DM AF. 6 ACKUP. OAT  A ,OISP=SHR  (OUTPUT  FILE) 

ft  EXEC  PGM  = IEBGENE»  (COPY  OMAF  FROM  BACKUP) 

//SYS IN  DO  dummy 
//SYSPRINT  00  SYSOUT=A 

//SYSUTl  DO  OSN=NWS01. OMAF. BACKUP. DATA, OISP=SHR 
//SYSUT2  00  OSN=NWS01.OMAFl.DATA,DISP=SHk 
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2.3.3  INPUTS 


Card  inputs  to  UPDEP  are  made  using  unit  5.  Ihe  format  for  these 
cards  is  given  in  Section  2. 3. 3.1. 

Unit  5 - Card  inputs  which  (1)  determine  the  type  of  change 
to  be  made  and  identify  the  record  number,  (2) 
give  replacement  values,  (3)  terminate  the  input 
data. 

The  following  additional  unit  is  used  to  input  information  from  a disk 
file: 


Unit  8 - Depot  Maintenance  Assignment  File  (DMAF) 


The  format  for  this  file  is  given  in  Section  2. 3. 3. 2. 


2. 3. 3.1  Unit  5 - Card  Inputs 


Hiere  are  two  types  of  update  cards:  a type  A card  which  describes 
the  instruction  and  gives  record  numbers,  and  a type  B card  which  con- 
tains replacement  data.  An  Update  Deck  Terminator  card  follows  the 
last  type  B card.  The  format  for  the  type  A update  card  is  as  follows: 

Type  A Update  Card 


Variable  Name 

Description 

Field 

Format 

IDENT 

Identification  instruction 

1-5 

A5 

IRECl 

First  record  number 

10-13 

14 

IREC2 

Last  record  number 

14-17 

14 

The  format  for 

second  of  the  pair  of  cards  in 

the  update 

deck  is  , 

follows: 

Type  B Update  Card 

Variable  Name 

Description 

Field 

Format 

UFIELD(l) 

Yard 

1-5 

A5 

UFIELD(2) 

Ship  type 

6-9 

A4 

UF1ELD(3) 

Hull  number 

10-13 

A4 

UFIELD(4) 

Sequence  Number 

14-17 

A4 

UFIELD(5) 

Continuation  indicator 

18 

A1 

UFIELD(6) 

'Pype  work 

19-21 

A3 

UFIELD(7) 

Availability  start  date 
(mo/dy/yr) 

22-27 

A6 

UFIELD(8) 

Availability  end  date 
(mo/dy/yr) 

28-33 

A6 

UFIELDO) 

Specialization  category 

34-36 

A3 

UFIELD(IO) 

Sector 

37-38 

A2 

UFIELD(ll) 

Fiscal  year  (this  record) 

39-40 

A2 

UFIELD(12) 

Period  (this  year) 

41 

A1 

UFIELD(13) 

PSP  mandays  this  period 

42-48 

A7 
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Type  B Update  Card  (Continued) 


Variable  Name 

Description 

Field 

Format 

UFIELD(14) 

Total  PSP  mandays 

49-55 

A7 

UFIELD(15) 

Repair  matrix  number 

56-59 

A4 

UFIELD(16) 

Alterations  matrix  number 

60-63 

A4 

UFIELD(17) 

Percent  of  PSP  mandays  for 
alterations 

64-66 

A3 

UFIELD(18) 

Labor  distribution  histogram 
number 

67-68 

A2 

UFIELD(19) 

Sort  key 

74-76 

A3 

The  format  for  the  terminator  card  (the  last  card  of  the  update  deck) 
is  as  follows: 

Update  Deck  Terminator  Card 

Variable  Name  Description 

ISTOP  Terminator  (Must  contain  the 

characters  "99999".) 


Field  Format 

1-5  A5 
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2. 3. 3. 2 Unit  8 - Depot  Maintenance  Assignment  File  (DMAF) 


The  format  for  the  Depot  Maintenance  Assignment  Pile 
follows; 


Variable  Name 

Description 

Field 

DFIELD(l) 

Yard 

1-5 

DFIELD(2) 

9iip  type 

6-9 

DFIELD(3) 

Hull  number 

10-13 

DFIELD(4) 

Sequence  Number 

14-17 

DFIELD(5) 

Continuation  indicator 

18 

DFIELD(6) 

Type  work 

19-21 

DFIELD(7) 

Availability  start  date 
(mo/dy/yr) 

22-27 

DFIELD(8) 

Availability  end  date 
(mo/dy/yr) 

28-33 

DFIELDO) 

Specialization  category 

34-36 

DFIELDdO) 

Sector 

37-38 

DFIELD(ll) 

Fiscal  year  (this  record) 

39-40 

DFIELD(12) 

Period  (this  year) 

41 

DFIELD(13) 

PSP  mandays  this  period 

42-48 

DFIELD(14) 

Total  PSP  mandays 

49-55 

DFIELD(15) 

Repair  matrix  number 

56-59 

DFIELD(16) 

Alterations  matrix  number 

60-63 

DFIELD(17) 

Percent  of  PSP  mandays  for 
alterations 

64-66 

DFIELD(18) 

Labor  distribution  histogram 
number 

67-68 

tFIELD{19) 

Sort  key 

74-76 

IRECOR 

Record  number 

85-90 

(DMAF)  is  as 

Format 

A5 

A4 

A4 

A4 

A1 

A3 

A6 

A6 

A3 

A2 

A2 

A1 

A7 

A7 

A4 

A4 

A3 

A2 

A3 

16 
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2.3.4  OUTPUTS 


“Itie  following  unit  is  used  by  UPDEP  for  generating  hardcopy  output: 

Unit  6 - Error  messages  and  sunmary  of  replacement  record 

Section  2.3.7  presents  a sample  of  this  output. 

The  following  additional  unit  is  used  by  UPDEP  to  store  information 
on  disk  for  use  by  subsequent  programs: 

Unit  9 - The  Revised  Depot  Maintenance  Assignment  File 

The  format  for  this  file  is  described  in  Section  2. 3. 4.1. 
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2. 3. 4.1  Unit  9 - Revised  Depot  Maintenance  Assignment  File  (DMAF) 


The  format  for  each  record  is  as  follows; 


Variable  Name 

Description 

Field 

Format 

DFIELD(l) 

Yard 

1-5 

A5 

DFIELD( 2 ) 

Ship  type 

6-9 

A4 

DFIELD(3) 

Hull  number 

10-13 

A4 

DFIELD(4) 

Sequence  Number 

14-17 

A4 

DFIELD(5) 

Continuation  indicator 

18 

A1 

DFIELD(6) 

Type  work 

19-21 

A3 

DFIELD(7) 

Availability  start  date 
(mo/dy/yr) 

22-27 

A6 

DFIELD(8) 

Availability  end  date 
(mo/dy/yr) 

28-33 

A6 

DFIELD(9) 

Specialization  category 

34-36 

A3 

DFIFLD(IO) 

Sector 

37-38 

A2 

DFIELD(ll) 

Fiscal  year  (this  record) 

39-40 

A2 

DFIELD(12) 

Period  (this  year) 

41 

A1 

DFIELD(13) 

PSP  mandays  this  period 

42-48 

A7 

[FIELD(14) 

TDta]  PSP  marxiays 

49-55 

A7 

DFIELD(15) 

Repair  matrix  number 

56-59 

A4 

DFIELD(16) 

Alterations  matrix  number 

60-63 

A4 

DFIELD(17) 

Percent  of  PSP  mandays  for 
alterations 

64-66 

A3 

DFIELD(18) 

Labor  distribution  histogram 
number 

67-68 

A2 

DFIELD(19) 

Sort  key 

74-76 

A3 

I PEC 

Resequenced  record  number 

85-90 

A6 
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2.3.5  PROGRAM  LISTING 


’••••PROGR»H  UPOEPI INPUT, OUTPUT, T*PE5>INPUTtTAPE6aOUTPUTt TAPES tT/IPE9»  •••• 

PROGRAM  UPOEP  IS  A REVISION  OF  ONE  WRITTEN  BV  OAN  ALLEN  UPOP 

ITS  PURPOSE  IS  TO  INSERT,  DELETE  OR  REPLACE  VALUES  OR  RECORDS  UPOP 
ON  THE  DHAF  FILE  UPOP 

REVISED  SEPT  1975  BY  JEAN  ST  LAURENT  UPOP 

UPOP 

UNIT  5 - INPUT  - UPOATE  CONTROL  CAROS  UPOP 

UNIT  6 - OUTPUT  - ERROR  MESSAGES  ARE  WRITTEN  ON  THIS  UNIT  UPOP 

UNIT  8 - INPUT  - OLD  DMAF  RESIDES  ON  THIS  UNIT  UPOP 

UNIT  9 - OUTPUT  - UPDATED  ONAF  IS  WRITTEN  ON  THIS  UNIT  UPOP 

UPOP 

EACH  insert,  delete  AND  REPLACE  COHHANO  CONSISTS  OF  TWO  UPOP 

OR  MORE  CAROS  UPOP 

AN  INSTRUCTION  CARO  - ’NSRT,  ’OELT,  aREPL  WITH  IOENTIFYING  UPOP 

RECORD  NUMBER  AND  A CARO  IMAGE  OF  THE  RECORD  CONTAINING  UPOP 

ONLY  THE  REPLACEMENT  VALUE  OR  VALUES  UPOP 

IF  THE  1ST  CHARACTER  OF  A FIELD  ON  THE  UPOATE  CARO  IS  A C SIGN,  UPOP 
THE  CORRESPONDING  FIELD  ON  THE  ONAF  IS  BLANK  FILLED  UPOP 

THERE  should  be  ONE  CARO  FOR  EACH  ALTERED  RECORD  UPOP 

UPOP 

TO  INSERT  A RECORD  OR  RECORDS  - USE  ^NSRT  AND  THE  RECORD  NUMBER  UPOP 
AFTER  WHICH  RECORDS  ARE  TO  BE  INSERTED  UPOP 

TO  DELETE  A RECORD  - USE  ^OELT  WITH  1ST  AND  LAST  RECORD  NUNBER  UPOP 
OF  THE  SEQUENCE  TO  BE  DELETED  UPOP 

TO  REPLACE  A RECORD  - USE  aREPL  AND  THE  RECORD  NUNBER  THAT  UPOP 

IT  IS  REPLACING  UPOP 

AUTOMATIC  RESEOUENCING  IS  DONE  ON  THE  NEW  ONAF  UPOP 

UPOP 

ALL  UPOATE  CONTROL  CARDS  MUST  BE  IN  ASCENDING  ORDER  IN  RECORD  NO. UPOP 

UPOP 

THIS  UPOATE  DECK  TERMINATES  WITH  A 99999  CARD  UPOP 

UPOP 


•••••INTEGER  UFIEL0(19I,  0FIEL0<19I,  FSTCHRa9) 

DIMENSION  UFIEL0(19I,  0FIELDfl9»,  FSTCHR(19I 

REALMS  ISI6N,IBLANK,INS,I0EL,IREP,IST0P,0FIEL0,  UFIELO,  FSTCHR 
REALMS  IDENT 

DATA  ISIGN  /IHB/,  IBLANK/IH  /,  INS  /SH^NSRT/,  I0EL/5H^0ELT/, 

1 IREP/5M^REPL/,  IST0P/5H99999/ 

INITIAL  CONDITIONS 
IREC  a 0 
DO  2 I a 1,19 
•••••UFIELOm  a 0 
•••••FSTCMRm  a 0 
•••••OFIELOIII  a 0 

UFIELO(I)  a 0.0 
FSTCHR  a 0.0 
OFIELOIII  a 0.0 
2 CONTINUE 

WRITE  HEADING 
MRITE(G,1010) 

READ  UPOATE  CAROS 

5 REAOI5,1000)  IDENT,  IRECl,  IRECZ 


aa»a 

*»•« 

a«*« 

• ••a 
UPOP 
UPOP 
UPOP 
UPOP 
UPOP 
UPOP 
aaaa 
aaaa 
aaaa 

• aaa 
aaaa 
aaaa 
UPOP 
UPOP 
UPOP 
UPOP 
UPOP 
UPOP 
UPOP 


IS 

20 

30 

40 

50 

60 

70 

00 

90  I 

100 
110 
120 

130  \ 

140 

150 

160 

170  , 

lOO 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
300 
390 
400 
410 
420 
430 
440 
450 
460 
470 
400 
490 
500 
510 
520 
530 
540 
550 


66 


o o r>  o o o o 


BBirAVAiiMircopy 


C CHECK  FOR  last  GIRO 

IF(IOENT.EQ.ISTOP)  GO  TO 
IFdOENT.EQ.INSI  GO  TO  19 
IFCIOENT  .EQ.IOEL)  GO  TO  ?l 
IFIIOENT.EQ.IRERI  GO  TO  29 
GO  TO  sa 

19  J ■ 1 

GO  TO  30 

20  J « Z 

GO  TO  28 
29  J « 3 

28  HREC  * (IREC2  - IRECll  ♦ 1 
IFIIREC2.EQ.0I  NREC  « 1 
IF(NREC.LE.8>  GO  TO  110 
IFfJ.EQ.2t  60  TO  39 
C 
C 


OPOP  960 
UPOP  970 
UPOP  900 
UPOP  998 
UPOP  600 
UPOP  610 
UPOP  620 
UPOP  630 
UPOP  6«»8 
UPOP  690 
UPOP  660 
UPOP  670 
UPOP  680 
UPOP  690 
UPOP  700 
UPOP  710 
UPOP  720 
UPOP  730 
UPOP  71*0 
790 
••••  760 
UPOP  770 
700 
UPOP  798 
UPOP  800 
UPOP  818 
UPOP  820 
UPOP  830 
UPOP  8i»0 
UPOP  S90 
UPOP  860 
UPOP  870 
UPOP  880 
UPOP  890 
UPOP  900 
UPOP  910 
UPOP  920 
UPOP  930 
UPOP  990 
UPOP  990 
UFIELOflt .EQ.IREPi UPOP  960 
UPOP  970 
UPOP  980 
JPOP  990 
UPOPIOOO 
UPOPlOlO 
JPOP1020 
UPOP1030 
UPOPlOitO 
•♦••1098 
••••1060 
••••1070 
UPOPIOOO 
UPOP1090 
UPOPllOO 
UPOPlllO 
UPOP1120 
UPOP1138 
JPOPlUiO 
OPOP1190 


RE80  UPDATE  INFORHATtON 

38  REAO(9,1001)  (UFIELOflt ,I>1, 19) f (FSTCHR (N) ,N>1, 19) 

C READ  OLD  ONAF 

C^^39  REAO(8,1002t  (OFIELOftt .I>l,l9t t tRECOR 

39  READ(8,1002,ENOx90I  ( OFIELO (I ) iI«1 t 19) • IRECOR 
CHECK  FOR  EOF 

•••IF  (E0F(8t  .HE.  0)  GO  TO  90 
IFfIRECOR  - IRECl)  79>90,00 

90  GO  TO  (99«  99,  69) , J 

INSERT  NEM  RECORDS  fJxD 
99  IREC  X IREC  • 1 

MRITE(9tl002)  (OFIELOfI) , Ixl, IS) , IREC 

90  00  90  I X 1,  19 

IFfUFIELOfI)  .EQ.  IBLANK)  60  TO  90 
OFIELOfI)  X UFIELOfI) 

IFfFSTCHRfI)  .EQ.  ISIGN)  OFIELOfI)  > IBLANK 
90  CONTINUE 

IREC  X IREC  • 1 

HRITE(9,1002>  (OFIELO (I) , Ix 1, 19) t IREC 
HRITE(6tl007)  ( OFIELO (I ) , !• 1 f 19) f IREC 
READ (9, 1001)  (UFIELOflt i 1x1,19) t (FSTCHRfNt .Nxl.lS) 
IFfUFIELOfI) .EQ.ISTOP)  GO  TO  89 
IFfUFIELOfI). EQ. INS  .OR.  UFIELOflt . EQ.IOEL  .OR 
1 GO  TO  92 
GO  TO  98 
92  BACKSPACE  9 
60  TO  9 

DELETE  RECORDS  BY  READING  AND  THRONING  AHAY  (Jx2| 
99  IF(NREC.EQ.l)  GO  TO  9 
00  60  K X 2,  NREC 
C«xxxxbeA0(8,  1082)  (OFIELO ( I)  , Ixl , 19) , IRECOR 

REAOfS, 1002,ENOx9at  (OFIELO (I ) , !■ 1, 19) , IRECOR 
CxxxxxiF(eOF(8) .NE. 0)  GO  TO  90 
60  CONTINUE 
GO  TO  9 
C 

C REPLACE  VALUES  OR  ENTIRE  RECORDS  (J>3) 

69  00  72  L X i,nREC 

HRITE(6,1088t  ( OFIELOf I t , I«l, 19) , IRECOR 
00  70  1x1,19 

IFfUFIELOfI)  .EQ.  IBLANK)  GO  TO  70 
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BBUMIlABif'COPy 


OFIELOdI  > JFIELOdI  UP0P116I 

C IF  t IN  FIELOi  BLANK  FILL  IIPOP1170 

IFIFSrCHRd)  .EQ.  ISISN)  OFIELOd)  « IBLANK  UPOPllBI 

7B  CONTINUE  UPOPllBI 

IREC  > IREC  * 1 UPOP1200 

HRITE(9,1002)  lOFIELO  (II tl-lt 19) t IREC  UP0P121I 

NRITE(6, 10091  (OFIELOII) tl*lt 19) f IRECORt  IREC  UPOP122I 

IF(L.EQ.NRECI  CO  TO  9 UP0P123I 

C***»*RE»0(0,  1002)  (OFIELOd)  (I^ltlB)  • IRECOR  ••••12CI 

RE*0(e,1002.ENO>90)  (OFIELO (I ) t I-l> 19) . IRECOR  ••••1290 

C CHECK  FOR  EOF  UPOP126I 

C*****IF  (EOF(S)  .HE.  0)  GO  TO  91  ••••1271 

72  CONTINUE  UPOP12IO 

60  TO  9 JPOP1290 

C COPT  OLO  ONAF  TO  HEN  FILE  UNCHANGED  UPOP130I 

75  IREC  » IREC  ♦ 1 UP0P131I 

HRITE(9«1002)  (OFIELD (I) • I>1« 19) • IREC  UPOP1320 

60  TO  35  UPOP133B 

C ERROR  PRINTOUT  UPOP13AO 

•0  HRITE(6,1003)  (UFIELOd I • I> 1, 19) t IRECl  UP0P135I 

IREC  : IREC  • 1 UPOP1360 

MRITC(9tl002)  (OFIELOd), I«l,19)t  IREC  UPOP1370 

60  TO  5 UPOPlSeO 

C UPOP1390 

C TERHINAL  CARO  OF  UPDATES  - REHAININ6  RECORDS  ARE  COPIED  UPOPIAOO 

C^^85  REAO(S,1002)  ( DFI ELO (1) ,I *1 , 1 9)  , IRECOR  ••••lAll 

C««»»«if(EOF(«)  .he.  0)  60  TO  100  ••••ICEO 

S5  REAOCO,  t002,ENO*10gi  (OFIELOd)  ,I>1, 19)  , IRECOR  ••••1430 

IREC  * IREC  ♦ 1 UPOP1440 

HRITE(9,1002)  (OFIELOd), Isl,19),  IREC  UP0P1450 

GO  TO  05  UPOP1460 

110  NRITE(6,1006)  IRECl,  IREC2  UP0P1470 

60  TO  5 JPOP1480 

90  HRITE(6, 10041  UP0P149I 

100  CONTINUE  UPOP1500 

STOP  UPOP1510 

1000  F0RMATIAS,4X,7I4)  UPOP1520 

1001  F0RHAT(A5,A4,2A4,A1,A3,2A6,A3,A2,A2,A1,2A7,2A4,A3,A2,5X,A3,4X,  UPOP1530 

1 T1,A1,T6,A1,T10,A1,T14,A1,T18,A1,  T19,A1,  T22,A1,T20, Al,  T34, A1 , UPOP1540 

2 T37,A1,T39,A1,  T41,A1,T42,A1,T49, A1,T56,A1,  T60, Al ,T64, Al , T67 , UPOP1550 

3 A1,T74,A1)  UPOP1560 

1002  F0RHAT(A5,A4,2A4,A1,A3,2A6,A3 , A2 , A2 ,A1 , 2A7, 2 A4 , A3 , A2 ,5X , A3 ,8X , 16)  UPDP1570 

1003  F0RHAT(1X,41H^^^  UPDATE  ERROR  - RECORD  NOT  IN  FILE  •••/  , UPOP1500 

1 A5,A4,2A4, A1,A3,2A6, A3, A2, A2,A1,2A7,ZA4,A3,A2,5X,A3,8X,I6)  UPDP1590 

1004  FORHAT( 1X,54H^^«  UPDATE  ERROR  - EOF  ENCOUNTERED  ON  OLO  DATA  SET  ••UPOP1600 

!•)  UPDP1610 

1006  FORNATCIX,  16HINPUT  CARO  ERROR,  2X,  8HREC  1 > , 14,  2X,  UPOP1620 

1 8HRCC  2 X , 14)  UPOP1630 

1007  FORNATIIH  , 5X,  A5,  2X,  A4,  IX,  2(A4,2X),  Al,  A3,  2(2X,A6),  2X,  UPOP1640 

1 A3,  2(2X,A2),  2X,  Al,  2(2X,A7),  2(2X,A4),  2X,  A3,  2X,  A2,  UPOP1650 

2 2X,  A3,  lOX,  16,  2X,  IHI  ) UPDP1660 

1008  FORNATdH  , 5X,  A5,  2X,  A4,  IX,  2(A4,2X),  Al,  A3,  2(2X,A6),  2X,  UPOP167I 

1 A3,  2(2X,A2),  2X,  Al,  2(2X,A7),  2(2X,A4),  2X,  A3,  2X,  A2,  UP0P1680 

2 2X,  A3,  2X,  16,  IIX,  IHO  ) UPOP1690 

1009  FORNATIIH  , 5X,  A5,  2X,  A4,  IX,  2(A4,2X),  Al,  A3,  2(2X,A6),  2X,  UPOP1708 

1 A3,  2(2X,A2),  2X,  Al,  2(2X,A7),  2(2X-,A4) , 2X,  A3,  2X,  A2,  UPOP1710 

2 2X,  A3,  2X,  16,  2X,  16,  2X,  IHI  ) UPOP1720 

1010  FORNATdHl,  47X,  38HSUNNARr  OF  REPLACEPENT  RECORDS  ON  ONAF,  //  UPOP1730 

1 114X,  3HOL0,  6X,  3HNEH  /,  112X,  6HREC  NO  , 3X,  6HREC  NO  ) UPOP1740 

ENO  UPOP1750 


68 


2.3.6  GLOSSARY 


Main  Program 
DFIELD(19) 

FSTCHR(19) 

I 

I BLANK 

I DEL 

I DENT 

INS 

IREC 

IRECOR 

IRECl 

IREC2 

I REP 
I SIGN 

I STOP 
J 


K 

L 

N 

NREC 

UFIELD 


LOCAL  VARIABLES 


An  array  of  data  for  one  DMAF  record;  see  Section 

2. 3. 3. 2. 

An  array  of  the  first  character  of  each  field  of 
the  update  record;  see  Section  2. 3. 3.1. 

An  index  for  I/O  statanents. 

A one-character  blank  space. 

Variable  which  contains  the  characters  "DELT". 

Variable  used  to  test  for  type  of  update  instruction. 

Variable  which  contains  the  characters  "NSRT". 

Record  number  of  the  revised  DMAF  file. 

Record  number  on  DMAF  prior  to  revision. 

First  record  number  read  from  an  update  instruc- 
tion card;  indicates  record  at  which  update  begins. 

Second  record  number  read  from  an  update  instruc- 
tion card;  indicates  last  record  of  the  sequence 
to  be  altered. 

Variable  which  contains  the  characters  "REPL". 

Variable  which  contains  the  character  which 

designates  replacing  the  field  with  blanks. 

Variable  which  contains  the  characters  "99999". 

Flag  set  to  determine  the  type  of  update  instruction: 
Flag  set  to  "1"  if  inserting  new  records. 

Flag  set  to  "2"  if  deleting  records. 

Flag  set  to  "3"  if  replacing  values  or  entire 
records. 

Index  for  deleting  records. 

Index  used  for  DOloop. 

Index  for  I/O  statements. 

Number  of  sequential  records  to  be  updated. 

An  array  of  update  data;  see  Section  2. 3. 3.1. 
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2.3.7  SAMPLE  RUN 


Card  inputs  (unit  5)  for  the  sample  run  reauested  that  the  sequence 
number  of  all  availabilities  on  the  Depot  Maintenance  Assignment  File 
(DMAF)  for  the  CGN  35  be  changed  from  0 to  20.  This  was  accomplished  by 
using  the  replace  command,  *PFPL,  and  the  corresponding  record  numbers. 
For  records  11  thru  13,  the  correct  value  of  the  sequence  number  was 
punched  in  the  appropriate  fields.  The  other  alteration  to  DMAF  was  to 
change  the  values  for  percent  alterations  for  all  availabilities  on  the  CV 
41.  Inouts  requested  substituting  the  value  "21"  on  records  30  thru 
32. 

A summary  of  replacement  records  (unit  6)  shows  records  that  were 
deleted,  noted  by  the  letter  "D,"  and  replacement  or  inserted  records, 
noted  by  the  letter  "I".  Wlien  records  were  simply  inserted,  the  file  was 
resequenced  by  ones;  therefore  the  old  and  new  record  numbers  differed. 

The  output  of  program  UPDEP  consists  of  a Revised  Depot  Maintenance 
Assignment  File  (DMAF)  and  is  written  on  unit  9. 


Unit  5 - Card  Inputs 


♦REPL 

11 

13 

20 

*REPL 

30 

32 

99999 

21 
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BEST  MIUBIE  COPY 
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unit 


BESr  AVAILABLE  (X^y 

9 - Revised  Depot  Maintenance  Assignment  File 


PUGETCGN 

9 

30  C 

^0179 

60182AANNI(792 

62  671 

739000 

0 9 

1 

PUGtTCGN 

9 

30  *0 

<•0179 

60162AANNM801 

163506 

739000 

0 9 

2 

PUGtTCGN 

9 

30  ’C 

H0179 

60i02AAT*Nlt602 

166152 

739000 

0 9 

3 

PUGtTCGH 

9 

30  *C 

40179 

66ia2AANNM811 

163502 

739000 

0 9 

k 

PUGtTCGN 

9 

30  •€ 

40179 

60162AANNM612 

123009 

739000 

14  < 

9 

PUOeTCCN 

9 

30*C 

40179 

60162AANNH621 

62207 

739000 

0 9 

6 

niGCTCGH 

9 

30  *0 

40179 

6Q162AANNN622 

66 

739000 

0 « 

7 

m;GtrccN 

?5 

26  RA 

11579 

31579AANNN791 

30000 

30000 

70  1 

6 

PU6ETCGN 

29 

30  RO 

6018? 

60163AANNN822 

75760 

798507 

1419 

9 

ruGCTCGN 

S9 

11  RA 

11579 

31579AANNN791 

12000 

17000 

100  1 

10 

PUGETCGN 

35 

0 RO 

601S1 

60162AANNII612 

75760 

798507 

1419 

11 

PUGETCGH 

35 

0»RO 

60101 

60162AANNM621 

165233 

798507 

1415 

12 

PUGETCGH 

35 

0*RO 

60181 

80182AANNN822 

57513 

798507 

1419 

13 

PUGEfCGN 

36 

6 RA 

11579 

61679AANNU791 

61925 

47704 

74  1 

16 

pucercGN 

36 

6«RA 

11579 

61679AANNN792 

3278 

47704 

74  1 

15 

PUGETCGN 

36 

10  RO 

41480 

61681AANNN602 

116366 

778550 

14  9 

16 

PUGETCGN 

36 

lO^RO 

41480 

61681AANNII811 

166621 

778550 

14  9 

17 

PUGETCGN 

36 

10*RO 

41480 

61661AANNM812 

17560 

778550 

14  9 

16 

NOPVACGN 

IT 

6 RA 

6?178 

82276AANNE782 

23600 

70400 

39  ; 

19 

NOPVACGN 

37 

10  RO 

10?81 

30582AAHNE611 

68369 

778000 

1413 

20 

NOtVACGN 

37 

10»RO 

10?81 

30582AANNE  812 

161621 

778000 

1413 

21 

NOtVACGN 

37 

lO^RO 

10781 

J0562AANNE  821 

67606 

778000 

1413 

22 

NOtVACGN 

36 

6 RA 

803791002T9AANN(  ^92 

11955 

17000 

37  1 

23 

NOPVACGN 

36 

6«RA 

S0379l002r9AANNt  801 

66 

17000 

37  1 

26 

NOPVACGN 

36 

10  RO 

70182 

90283AANNE822 

69808 

778000 

913 

25 

PUGETCGN 

39 

6 RA 

71579 

91579AANNU792 

12000 

17000 

100  1 

26 

CHASNCGN 

60 

6 RA 

50162 

70162AANNE  822 

12000 

17000 

100  1 

27 

NWPACCV 

61 

35  RA 

71078 

91176CVAPII782 

60006 

48000 

4917 

26 

PUGETCV 

61 

36  RA 

111076 

11179CVANU791 

60000 

40000 

4817 

29 

CBECHCV 

61 

60  RO 

101780101781C«*NM811 

179097 

396045 

0 1 

30 

LBCCHCV 

61 

60  •RO 

101780101781CV8NM81? 

215672 

396045 

0 1 

31 

CBCCHC¥ 

61 

60  •RO 

iai?80101?81C¥«NW8?l 

16  76 

396045 

0 1 

32 

LBECHCV 

63 

60  RO 

11307711?9  78C«*NM7  81 

126006 

347067 

1774 

33 

LBECHCV 

63 

60»RO 

11307711?978C*»MI|7e? 

199985 

347067 

1774 

36 

LBECHCV 

63 

60^RO 

11  307711?9  78CV*NI<791 

16076 

347067 

1774 

35 

0 1?  CV 

63 

61  RA 

31060 

71160CVAPM601 

2096 

10000 

017 

36 

0 1?  CV 

63 

61^RA 

31080 

71180  CVAPM602 

7903 

10000 

017 

37 

0 06  CV 

59 

61  RA 

110376 

129  79CVAPE791 

73258 

73758 

3917 

36 

NORVACV 

59 

62  RA 

50360 

72980CVANE802 

63000 

60000 

431  7 

39 

NOR VAC V 

59 

63  RA 

100161 

10182CVANE821 

60000 

68000 

4417 

60 

0 06  CV 

60 

53  RA 

10676 

60  3 7BCVAPE7  81 

86977 

89360 

401  7 

61 

0 86  CV 

60 

53^RA 

10676 

60378rVAPE  782 

2362 

89360 

4017 

62 

NORVACV 

60 

bO  RO 

4?0791?0179CV*NE79? 

196966 

740000 

4773 

63 

NORVACV 

60 

60^RO 

4?0791?0179CV*N?801 

65055 

740000 

4773 

66 

0 06  CV 

60 

61  RA 

7018?10818?CV*PE8?7 

59666 

60000 

4717 

65 

PUGETCV 

61 

50  RO 

715  77 

21578CVANM781 

111606 

443300 

3874 

66 

0 11  CV 

61 

51  RA 

70180 

50160CVAPM601 

66312 

60000 

4?  1 

67 

0 11  CV 

61 

51  •RA 

70180 

5016QCVAPM802 

15667 

60000 

4?  1 

66 

0 11  CV 

61 

52  RA 

90iail70101CV«PN817 

16731 

60000 

46  1 

69 

0 11  CV 

61 

52*RA 

90181170181CV8PM871 

65266 

60000 

46  1 

50 

NORVACV 

62 

60  RO 

117177101978CV8NC781 

160  669 

346357 

4173 

51 

NORVACV 

62 

60  •RO 

11 717710 19 78CV8ME  707 

199596 

346357 

4173 

52 

NORVACV 

62 

60  "RO 

117177101970CV8NE791 

6266 

346357 

4173 

53 

NORVACV 

62 

61  RA 

90179117679CW8NE797 

29  389 

69170 

4717 

56 

NORVACV 

62 

61^RA 

90179117679CU8NE801 

39760 

69170 

4717 

55 

0 11  CV 

62 

62  RA 

10781 

40181CV8Plf811 

59925 

60000 

41  1 

56 

0 11  CV 

62 

62  •RA 

10781 

40ieiCV*PW817 

76 

60000 

41  1 

57 

0 11  CV 

62 

63  RA 

50107 

8ai87CV*PM877 

60000 

60000 

41  1 

56 
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